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***** EDITORIAL ***** 

This month, we have handed over much of our editorial space to Tony Edwards, our U.K. correspondent. 
Tony has presented us with a scoop; details and a photograph (our front cover) of the new (Video) 
Genie III. We will now hand over to Tony then return with some of our own comments later. 

***** pEEKing (UK) by our U.K. Correspondent Tony Edwards ***** 

Last month I gave a run down of the hardware situation in this country and this month I am con- 
tinuing in the same vein, but talking about software. The '80 user in this country is yery 
well served with regards ready made software for the '80. There is, of course, the large range 
of Tandy products, most of which are compatible with non-Tandy machines. My local friendly 
Tandy store manager does not think that these programs will run in Video Genie machines, however. 
He told me that the chips are different and 'built to different standards'. I do not believe 
him, as I have never had any difficulty using Tandy programs on my Video Genie. The only problems 
are the different keys and sound output. 

As well as the Tandy software, there are a number of Software Houses in the U.K. some of which 
specialize in '80 software. These include Kansas City Systems, Microcomputer Applications, 
and Molimerx Ltd. All these provide an extensive range of programs from business to games and 
add new programs regularly. Molimerx (the name is Latin for 'Software') produces an almost 
club atmosphere in their monthly listings which, as well as over 400 programs, contains sections 
on problems and useful hints. The hallmark of all these suppliers is the back-up service. 
All accept the fact that bad tapes will sometimes be sent out and will exchange faulty tapes 
by return post. 

American magazines are widely available here and they provide another source of software. The 
American suppliers can sell at much lower prices than the U.K. suppliers but, in some cases, 
the service is not so good and it is difficult to press a complaint over great distances. 

Another source which is available is in the small ads. part of the various computing magazines. 
In these ads., freelance programmers sell their work at very reasonable prices. Some of these 
programs are very good indeed, and well worth the small cost. 

The Genie II (EG 3008) is now available in this country. This machine is very similar to the 
Video Genie (EG 3033), known in Australia as the System 80. It uses Microsoft Level II BASIC 
and, as such, is compatible with most of the programs which have been produced for the '80 
series of machines. The only obvious incompatibility is the loss of the second cassette. On 
this new machine the internal cassette has been replaced by a numeric keypad and only one external 
cassette port is available, thus programs which require two cassettes will not work on the 
new machine. The standard ROM has been expanded to 13K and now includes additional professional 
features, terminal features, and special function keys. The keyboard has 71 keys including 
a full typewriter section, numeric keypad, and four special function keys. Lower case is standard. 
This looks a fine machine aimed at the business market but I can see many hobby users enjoying 
it. 

No sooner had I finished considering the Genie II than I was invited to see the press release 
of the Genie III. This machine will not be generally available for twelve months or more but 
already I think it is a winner. It is intended to be compatible with the Video Genie and the 
Genie II so I think the suppliers should be congratulated on their attempts to keep all the 
machines in the stable working together. The Genie III has no ROM being disk based with operating 
disks carrying the function usually found in ROM. The machine is the first to support both 
CPM (80 x 24 screen format) and Level II BASIC (64 x 16), thus giving it a huge software access. 
The machine has 64K of RAM and 1 megabyte of on-line disk, which can be doubled externally if 
required. It uses a Z80A processor operating at 4MHz and has both parallel and serial interfaces 
as standard. All this at a projected price of £1600 in the U.K. cannot be bad. 

There are a number of new 'stick on' goodies becoming available at this time in the U.K. which 
I will be covering in a future piece. Lowe Electronics (the suppliers of the Video Genie) are 
marketing a converter for the TRS-80 to allow it to use Genie add-ons. 

- 0000000000 - 

On receipt of this story, we immediately rang Jim Rowe, Technical Director of Dick Smith 
Electronics. We knew Jim had very recently been to the U.K. and it seems that one of the major 
reasons for that trip was to attend the preview of the Genie III. Jim was able to expand somewhat 
on the information supplied to Tony. 

The unit presented and photographed, is the engineering prototype. If the dealers have their 
way, the ultimate production models will be rather more compact and visually attractive Price 
too, could be rather closer to what it would cost for a similarly optioned Genie II It is 
not certain yet whether the BASIC interpreter will be on disk or will be contained in a ROM 
as at present. No decision has yet been made on the DOS to be used with the system (i e when 

not Vrftru * mod V* The disk dr1ves °P erate in doub] e density. Those in the prototype unit 
were TEAC but production units could have different drives. 
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What about our own opinion? We think it is a very intelligent move. For some years now, CP/M 
has been the de facto industry standard disk operating system. A great deal of software has 
been developed to operate under CP/M, particularly business software, interpreters (BASIC, COBOL, 
FORTRAN) and utilities. Two relatively recent events have virtually assured CP/M and CP/M com- 
patible systems of a firm place in microcomputing for at least the next five years. First, 
there was the Z80 Softcard produced by Microsoft for the Apple. This makes Apple computers 
capable of running CP/M and has lead to the development of a great deal of new software, both 
business and hobbyist, running under CP/M. Secondly, there is the emerging Japanese microcomputer 
industry The greatest weakness the Japanese have in selling computers into Western countries 
is the "availability of suitable software. Almost to a man, Japanese companies have designed 
their computers to operate under CP/M thus overcoming the problem. Now, programmers all over 
the world will be able to write programs to operate under CP/M and know that, with only minor 
modifications they should run on over 60% of the disk-based microcomputers which will be sold 
in the next 'few years. The Genie III will fit right into this pattern and should do well. 
It will also offer the advantage of allowing the user access to the very large library of TRS- 
80 Model I software which is available. We think that the Genie III is well conceived and look 
forward to its early introduction. Incidentally, you may not have to wait 12 months to see 
them in the shops-* apparently the manufacturers are now talking about delivery in April or May 
1982. 

We had so much to squeeze into the magazine this month that we have had to hold over one of 
our advertised programs - Towers of Hanoi, until next issue. Part 2 of The Theory and Techniques 
of Sorting will also appear next month. 

-0000000000- 

***** BETTER BASIC PROGRAMMING - PART 6 by Rod Stevenson ***** 
** MORE ASSEMBLY/BASIC ** 



1 'BREAK=SHIFT B. SHIFT@=SHIFT A. USE SHIFT E FOR ENTER WHEN F0L 
LOWS SAVE, CSAVE, LIST, LLIST; OTHERWISE THEY ARE DISABLED. CAN 
BE MERGED ONTO FRONT OF ANY BASIC. BEFORE (C)SAVEING, POKE 255 I 
NTO 17131-2. 

2 SM=PEEK(16549):SL=PEEK(16548):SA=SM*256+SL+8:SL=SAAND255:SM=IN 
T ( SA/256 ) : F0RA=SAT0SA+97 : READD : POKEA, D : NEXTA 

3 Tl =PEEK ( 1 6405 ) : T2=PEEK( 1 6435 ) : P0KE1 6405 , 0: POKE 1 6435 , 201 : POKE! 6 
406, SL: POKE! 6407, SM 

4 DATA205 5 227, 3, 254, 101, 40, 65, 254, 98, 40, 17, 254, 97, 40, 16, 254, 13, 4 
0,15,254,1,40,3,254,96,192,175,201,62,1,201,62,96,201,217,237,91 
,164,64,175,103,46,83,25,235,42,167,64,43,215,26,19,183,250,204, 
6,190,35,40,246,26,19,254,128,32,250,26,254,255 

5 DATA32, 230, 21 7, 62, 13, 201, 76, 73, 83, 84, 128, 76, 76, 73, 83, 84, 128, 67 
,83,65,86,69,128,83,65,86,69,128,255 

6 P0KE16405 9 T1 : P0KE1 6435 ,T2 : P0KE1 71 31 ,0 : P0KE1 71 32,0: 'FOLLOWING I 
S A SAMPLE PROGRAM. 

7 PRINT" TRY TO STOP! ! ! "; :PRINT@512 a ; :PRINT"C0NNECT AMPLIFIER TO 
AUX PLUG. OR PLUG SPEAKER INTO EAR-SOCKET & PRESS REC0RD-DISA 

BLE LEVER ON RECORDER, THEN RECORD & PLAY. 
THEN PRESS ANY KEY. 

8 IF INKEY$=""THENG0T08 

9 CLS:F0RI=1T023:READD:S$=S$+CHR$(D):NEXT 

10 X=VARPTR(S$): POKE! 6526, PEEK(X+1): POKE! 6527, PEEK(X+2) 

11 PRINTCHR$(23);"LISTEN "; :X=USR(RND(50) ) 

12 PRINT"LISTEN ";:G0T011 

13 DATA205, 127, 10, 14, 140, 69, 62, 1,211, 255, 16, 254, 69, 62, 2, 211, 255, 
16,254,13,32,239,201 
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This program routine is here to illustrate many of the points left over from th* last article. 
Some of these perhaps are outside the scope of the "elementary" nature of this 7c>riel but I'll 
present them anyway! So if you find some a little complex now, leave them till later and you 
will be glad to be able to understand, at a later date, with more computing "under vour belt". 
While on that subject, I must stress again that true understanding (of this series or of any 
other instruction-type book or magazine) really does require "hands on" experience and practice 
So, don't just look at the listings in these articles. Type them in, RUN them and try to understand 
how they work, even before you read my explanation. 

WHERE TO KEEP MACHINE LANGUAGE ROUTINES. 

As I write machine language only as routines to be accessed from BASIC, this is an important 
consideration. Of course, if your machine language is stand-alone it won't be - you can just 
enter it with SYSTEM and the entry point. 

There are basically three ways I store machine language: 

1. In a definite memory location. Though this can also be a location determined by the program: 
last episode the program looked at the current top of memory to determine where to put the 
machine language program. But generally, you will have to protect memory, load in your 
program (whether by SYSTEM or POKE from BASIC) and it's done. The disadvantage here is 
that you are relying on the user to remember to set memory size (and realise, the documentation 
you carefully provided may go astray from the program), and at the correct value. You will 
also have to provide different programs for all memory configuration. But without a doubt 
it's the simplest way. 

As well as locating your machine language program at the top of memory, you can put it at 
the start of BASIC, and relocate the start of BASIC pointers (put the new location into 
40A4-5H and NEW to set other pointers). But again, you will have to provide separate programs 
for disk systems (and different ones for each disk system). 

2. In a string. This is actually quite simple, and is satisfactory unless your routine is 
not relocatable or is more than 250 bytes long. And if it is you won't have been able to 
use relative jumps (+129 or -126) to make it relocatable so you will need an absolute location 
known at the time of assembling your program. Yes, I know you could use array space or 
storage, but this gets quite "hairy" because arrays are not stored contiguously in memory. 

Having decided to use a string for storage, write a DATA line containing your machine language 
code in decimal numbers. Remember last issue I gave you the hint that an easy way to do 
this is to put your machine language into memory (either by the IM command of EDTASM or 
by loading your assembled SYSTEM tape) and PEEK the location so the decimal values are on 
the screen while you write your DATA line, such as lines 4, 5, 13 in the above program. 

Then build a string composed of this DATA as line 9 above. You will see others don't build 
their string in this way. They assign the required space to the string, then determine 
where the string is, and POKE it in. While this works, and look at some of the back issues 
of MICRO-80 for an example, I (naturally) think my way is better in that it's easier to 
understand. But both methods do the job. CLEAR string space if necessary. 

Now comes the tricky part. Though I don't think it is difficult once you understand it. 
What's necessary is to provide the entry address of the machine language routine to USR(0)(or 
whatever calling method you are using, and more of other ways later). The little understood 
function of VARPTR (meaning variable pointer) is used. And don't feel guilty for not under- 
standing it - not many do from the explanation in the Level II Manual! What VARPTR does 
is to find out where the given variable is stored. And it will work with all types of 
variables, but in this case, we are intersted in where our just created string is living. 

So in line 10 I've used X as the variable for the value given by VARPTR. But with a string, 
the first value given is the length of the string (used by the LEN function) so actually 
it's the next 2 bytes that are needed. And these are not actually the start of the string, 
but a pointer to the start of the string. So we need to PEEK them, not use them directly. 
That is, use the value they are pointing at, not use them themselves. Yes, I know it may 
be somewhat confusing but think about it until it "clicks". 

These two locations are given LSB first MSB last, which is the way the Z-80 expects them, 
so in the way they are used in line 10 they are correct, but to actually calculate the address 
you would have to reverse them. More of this later. 

The addresses being pointed to are now POKEd into 16526-7, which is the location for USR(0) 
to find out where to jump to in memory to enter your machine language program. 

Now a philosophical point. You will have heard in an earlier edition of MICRO-80 the article 
on the "garbage collector" which reorganises string usage when the space allocated by CLEAR 
(or the default 50) is getting full. So it could be that BASIC will relocate your string 
(and the machine language it contains) between accesses (but not during, since you won't 
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be in BASIC). So you will need to repeat line 10 before each access if you've used any 
string function. I haven't, so this is why in line 12 I go to line 11, not line 10. But 
you will remember in the article on input checking, when I listed my routine for line input, 
I provided alternative lines to keep the routine in a string. But I did warn that theory 
says it may not work - actually it did work! And now you see why - the "garbage collector" 
may have moved the string because I used VARPTR once to find the location of the input string, 
and again to find the location of the machine language routine. And accessing any string 
function is the same as accessing a string - you run the risk of the "garbage collector" 
taking action. If you didn't understand this whole paragraph, don't worry, it's only an 
explanation for the less beginning beginner. 

3. In a REM line. You will also see this technique used in earlier editions of MICRO-80, in 
my opinion where it is not really necessary. 

My reason for using it here (lines and 2) is that this particular routine needs an absolute 
location. That is one where it will remain, so the operating system knows where to find 
it. Because this particular routine modifies the operating system and is constantly being 
used - it's not like one which is accessed only at particular points in the program. 

Line provides enough space to hold the machine language code contained in lines 4 and 
5. And it really does mean space, not TABs. After running this program you will see that 
line fills up with what looks like garbage, but it is actually the machine language program 
which also happens to contain some control characters (only by chance do some of the machine 
language instructions happen to be the same as screen-control codes). The same thing happens 
with the string created by line 9. If you PRINTS, you will see what I mean. 

Line 2 is the difficult one (if indeed anything here is difficult to understand). So stay 
with it. 16548-9 (40A4-5H) is the pointer to the start of BASIC. The reason for using 
the pointers, and not the actual start location, (42E9 for Level II) is to allow for disk, 
or any other machine language program (such as Level III) which is already loaded and has 
relocated the start of BASIC. So SM is the MSB, SL is the LSB of start of memory. Note 
the use of meaningful variables names still! And more later about MSB-LSB. Then the whole 
address is created in SA by multiplying SM by 256 and adding to it SL. Also 8 is added 
to get past the 5 bytes of pointers BASIC keeps at the start of every line. (Actually 5 
would be enough to add but I added 8 for safety, just as I left more space in the REM line 
than the 98 bytes taken by the machine language routine). 

The reason for calculating the whole address before adding 8, and not just adding it to 
the LSB is in case the LSB Happens to be something like 250, which would become 2 when 8 
is added and the MSB would be incremented if done in the correct way. If the LSB only is 
considered then the address would be in error. 

Then having obtained the address in SA where the machine language can be put, I recalculate 
the MSB and LSB in SM and SL, for later use in the program. 

Now it's a simple matter of putting the machine language code into the space provided by 
the REM line. Note the for-next counter at the end of line 2 is SA+97, whereas there are 
in fact 98 items of data. This is the trap I warned of last episode: the first data item 
will actually be put into SA! You cannot have a as one of the data items if you want 
to keep the machine language in a REM line. Line 3 is impossible to write without Eddy 
Paay's ROM Manual to tell you that 16405,16435-7 are in the keyboard driver routine. The 
first two must be fooled into thinking no keyboard is present until the routine is POKEd 
into memory, and its location is given to 16406-7. 

Line 6 puts these first two locations right again, so that each time the operating system 
scans the keyboard it jumps to the machine language routine before acting on the results 
of that scanning of the keyboard. The last two locations are the pointer to the first line 
number for BASIC, which must be put right before RUNning the program if it has any GOTOs 
or GOSUBs. The reason they will be wrong is if you've POKEd them wrong as suggested in 
line 1 before saving this program. It's suggested so that a potential user cannot LIST 
the program before it's RUN, and then he can't LIST it after it's RUN because the routine 
will then be operating! So obviously, don't POKE them wrong in your own copy; and don't 
RUN before you save it (only because line will fill up with apparent garbage). 

After you've RUN it once, you can delete all but line 0, but you can't save it as such, 
because the operating system still needs to be told where to find the machine language program 
(contained in line 0) (by line 3) when it's nearly loaded. 

HOW THE ROUTINES WORK. 

I haven't space to explain how these two (break-disable, and sound) work here. Just wait for 
a future instalment when an explanation and the source code may be forthcoming. They've been 
included here simply to illustrate the connected points, not for their own right. 

But until then, if you want to change the disabling of SHIFT@ to some other key disabling, change 
the 25th DATA item in line 4 from 96 to the ASCII value of whatever key you want to disable. 



ISSUE 23 (OCTOBER 1981) MICRO-80 PAGE 6 

Also experiment with changing the value in USR in line 11 to something else and see how the 
tone generated changes. For example, in line 12 you could put before G0T011 , INPUT"NOTE(0-255)";N, 
and change the USR to read USR(N). 

Remember how I said user experimentation is the key to true understanding. 
TWO BYTE ADDRESSING. 

The concept of addressing is simple once you understand - like everything! The whole point 
H l s .. that because we k hav _ e U P to u 65,535 addressable memory locations in RAM, we need two 
rnlhLn \ ddres V JL lnce k each b * te can hold onl y 8 binary digits, that is, 256 decimal. So by 
nntnl tn ,1° Si these bytes we can get 256 multiplied by 256.' So we must decide how we are 
going to identify which is the one to be multiplied by 256, and which is the one to be added 
° *;** ? h Sult : h ? y c ? ny c ent }°"> We Cal1 the one which is multiplied the Most Significant Byte 
hv *S » J i^Ja Leas* Significant Byte usually referred to as MSB and LSB. So MSB multiplied 
tL IL, »J™ V\ TM ^ 1V L S the ,o^ al addreSS in decimal - Conversely, to get the MSB from 
2ni Jh SS A take - ^TCaddress/ZBS); to get LSB, subtract MSB multiplied by 256 from the 

? iLl n^-i * VTC er W 7 ° f g u et \ ting LSB is t0 take the whole addres s AND 255, as line 
Z above. Details of why this works are below. 

It ZlL« ther ^T PliC& Ho\^ uc e D addre " 1n 9 is that th e Z-80 takes the two bytes "the wrong 
way round' - that is, LSB first, MSB second. But it's only a case of remembering. If you look 
at an assembled source listing you'll see in the operand column the address is qiven "riqht 
way round , but in the assembled hex code in the second left column it's "wrong way round". 

AND. 

Here seems a good place to explain the use of AND above. It's not the AND/OR of BASIC such 
as IFA=B AND C=D, but the binary AND which compares bit patterns in the byte. Just the same 
is used in assembly writing, a knowledge of which is essential, for any but the simplest assembly 
program The only thing here is that AND is used in BASIC, but it's still comparing bit patterns. 
The whole concept of AND in BASIC can be examined by trial print instructions in the command 
mode. For example, if you PRINT4AND8 you'll get 0, but if you type PRINT4AND7 you'll get 4. 

4 = 00000100 4 = 00000100 

8 = 00001000 7 = 00000111 

AND = 00000000 AND = 00000100 

This is because what is really happening is as illustrated at left. The computer is comparing 
bit patterns of the two numbers you specified (4 and 8) and setting answer bits only when it 
finds two ones set in that column. If you say OR instead of AND it will set answer bits if 
it finds one bit set in the column, regardless of what the other one is. 

4 = 00000100 
7 = 00000111 



OR = 00000111 



4 = 00000100 
7 = 00000111 

XOR = 00000011 



XOR means exclusive OR, and will set a bit if it finds one and only one bit set in the column. 
This is useful if you want to set the accumulator to 0, but not by loading it with 0, because 
you are keeping it in a REM line which would interpret byte to be the end-of-line marker. 

THE STACK. 

Being familiar with machine language, you will know of the stack which is used as a temporary 
storage area in machine language programming. So it is in BASIC too. It normally locates itself 
55 bytes below the top of memory (or protected memory). This is the 50 bytes default string 
space, plus the 2 bytes extra set aside from very top of memory, plus 2 bytes separating string 
space and stack space. The stack grows downwards (high memory address to low). However, as 
said last episode, you don't need to worry too much about conflicting with the stack unless 
you are putting your machine language into memory and setting memory size from within a GOSUB 
or middle of a complex BASIC line. Of course, your machine language should have balanced its 
PUSHes and POPs before it returns to BASIC, but so it should anyway. 

PROTECTING MEMORY. 

By answering the memory size question, you're really specifying the highest memory location 
BAbiL can use. Actually it will use two locations under what you've set. If you look at a 
memory map you'll see that immediately under the top of memory is the string space which BASIC 
uses to work on any strings from your program. So this is what will overwrite 'your machine 
language routine if you don't set memory protection. Of course, if you've kept it in a strinq 
or REM line you won't need to protect memory. ' 
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POINTERS. 

You will notice in the above program that I've used pointers rather than absolute addresses. 
This is a very convenient way of writing as it allows your program to be portable from your 
own machine to other machines of different memory and equipment configurations. 

I won't go into the huge task of detailing the pointers here. Eddy Paay's ROM Manual does though, 
so I suggest you look there. 

Also in the ROM Manual you'll find the entry for other ways to get into machine language without 
using USR(0). And others are useful in that disk BASIC has a different syntax for USR, so your 
program would need to be changed for a disk machine if it uses USR. However, the others are 
not as easy to pass variables to and from the machine language routine and BASIC although it 
can be done in several other ways. An example is to POKE the LSB and MSB into 16789-90 instead 
of 16526-7. This will cause a jump to the machine language when the computer encounters the 
& which is a disk BASIC command, and has its entry point at 16789-90. 

If, like me, you think this is really rivetting stuff, you will certainly be well rewarded by 
the ROM manual . 

WHY TALK HEX. 

This is an often asked question. I used to ask it myself but when you get really "into" machine 
language and develop a "feel" for it, you will realise why and I'm sorry that's all I can give 
you for a reason. But so many (me included) do. I hope you will just take my word for it. 
I could tell you it's easier to remember a 4 digit number than a 5 digit decimal one, but you 
probably won't accept that. Just remember my words when you are an accomplished hex talker 
and somebody asks you why. 

MONITORS-UTILITIES. 

You'll read of various machine language programs, some of which are referred to as monitors 
and some as utilities. It seems there is some overlap, but I consider a monitor to be one which 
allows you to modify a machine language program, set break points, single step, etc. such as 
ZBUG. I consider a utility to be one which allows you to do things other than fix a machine 
language program. So to my mind, most programs about are utilities. And the one I use is M0N3 
(M0N4 is available for disk). Eddy Paay has combined M0N3 with a high memory version of TBUG 
to give the best of both worlds. M0N3 is produced by Howe Software, and is available in Australia 
from Computer Campus at Kent Town, S.A. 

Another I use is PACKER, but this is obviously not in the same area. Although ZBUG (which comes 
with Microsoft Editor/Assembler Plus) is a really good and powerful monitor, I can't honestly 
recommend it because it's so difficult to use - even Eddy says so! But as EDTASM, which it 
comes (free?) with is so good, it doesn't really matter. 

Therefore if you want to know what I'd suggest you get to help in combining your machine language 
with your BASIC (though often you won't need anything) and to allow you to "fiddle" with others' 
machine language, I'd recommend M0N3. Admittedly it has its limitations, as do most, but then 
what are the chances that you'll find any to suit your requirements exactly! I do get by quite 
well with M0N3 most of the time because fiddling about with others' machine language is what 
I like best. 

CONCLUSION. 

Still to come are sound routines with a source listing and explanation, and details of break 
key handling with a source listing. I haven't space to detail or explain the two routines listed 
above so this will come next time. And also to come is a function simulating ON BREAK GOTO. 
I hope the above has been of value. Remember my constant preaching that nothing is a better 
teacher than experience, practice and thought. 

At the end of this series there will be an episode devoted to answering readers' questions. 
So please send some in. 

AN EXPLANATION - by Rod Stevenson 

A number of readers have assumed from my references to the Adelaide Users' Group that it is 
the same as MICRO-80. I want to point out that the two are in no way connected. The only common 
factor is that both are in Adelaide; therefore Editor, Ian Vagg, attends meetings and gets ideas 
from speakers at the Group. This is how I came to be writing this series, and how Allan Dent's 
articles on the joystick and port project appear. Other members of the Group (Bernie Simson, 
Bruce Bussenschutt, etc.) just happen to write and submit articles just as many others from 
all over Australia do. ( What he means is, we are just good friends!! - Ed.) 

- 0000000000 - 
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***** JOYSTICKS AND INPUT/OUTPUT PORTS FOR YOUR '80 by Alan Dent ***** 

PART 3 - A/D - I/O BOARD ASSEMBLY INSTRUCTIONS AND DETAILED PPI PROGRAMMING DESCRIPTION 

Firstly I cannot overstress the importance of a low wattage soldering iron with a small tip. 
If your iron is not one of the small pencil type and has an unplated copper tip, file the end 
to a small surface preferably about 1/1 6th and no larger than l/8th of an inch tip width. Keep 
the tip clean, tinned and wipe it regularly with a piece of cloth during construction. Alter- 
natively, you may be able to borrow a more suitable iron from a friend. Failure to use a suitable 
iron can be disastrous by causing tracks to lift and creating solder bridges etc. You may even 
be able to use this as a good reason to upgrade your old iron. A small pair of clean cutting 
wire cutters will also be required, and a pair of long nose pliers would be helpful. 

The easiest way to assemble the P/C board is to start with the wire links joining the tracks 
through the board. As mentioned in the last instalment, for reasons of economy, the board does 
not have plated through holes. First, place some spacers about the thickness of a match on 
your bench and lay the P/C board on top of them, component side uppermost. An alternative method 
would be to temporarily f astern some matches to the underside of the P/C board with masking 
tape, taking care not to cover any holes to be used for the wire links. Insert the wire through 
the hole linking the tracks so that the wire touches the benchtop. Solder the wire in place 
and then cut the wire just above the solder joint, do not solder the other side at this point 
in time. Repeat this process for all tracks which have holes in them with the following exceptions: 

1) integrated circuits 

2) top soldered resistor between IC2 and IC3 

* 3) capacitor between IC3 and IC4 (middle hole in track) 

4) capacitor between the PPI's, IC8 and IC9 

5) the optional capacitors near the port connectors 

6) -ve connection at the board edge near the regulator 

7) corner hole for the PORT 13 connector 

When finished soldering -in all the links on the top of the board, turn it over and lay it flat 
on the bench. Bend all the leads back along their respective tracks, flat against the P/C board 
and solder them. Some links may be too long to do this and will have to be cut to a more suitable 
length. 

Next, solder in the IC sockets with pin 1 as indicated. Do them one at a time as it is much 
easier to hold only one socket in place while turning the board over to solder it in. With 
the sockets in place, you now have reference points which make it easier to locate the holes 
for the other components. TRS-80 owners will not have to use IC10; this is only used by System- 
80 users. The resistors should be installed next and then the small capacitors. Don't mount 
the components flush with the P/C board but raised up so that the resistors are about the same 
height as the IC sockets. This allows for easier servicing if it should ever become necessary 
(heaven forbid). The extra lead length allows a CRO probe to be easily clipped on for monitoring 
the various pulses. This is a good habit to get into whenever you construct any electronic 
device, space permitting of course (this is written by an electronic serviceman in case you 
haven't guessed). Be careful to insert the lOfif correctly polarised. Now instal the bridge 
rectifier, polarised as indicated on the underside of the board, then the 2000uf similarly 
polarised. Finally the regulator IC polarised as shown in the stuffing diagram followed by 
the PORT and A/B connectors and the 4 pins for the AC/DC connections next to the rectifier. 
System 80 owners will also have to fit a 3 pin male connector alongside IC10. Orient the board 
to place the port connections at the top, the connections for this 3 pin connector from top 
to bottom are: READ - WRITE - I/O REQUEST. 

As the board was originally designed for a TRS-80 model 1, model 1 owners may now insert the 
40 pin header plug into the BUSS CONNECTOR socket, the ribbon cable feeding out over the PPI 
port side of the board. Non model 1 owners who are anxious to construct this peripheral will 
have to do it the hard way as described later in the text, but for those not in such a hurry, 
MICRO-80 are working on an adaptor which will allow you to directly connect it to a ribbon cable 
from the computer expansion port. Model III owners will have to strip back the ribbon cable 
and solder the various wires to the header pins from the connection information supplied. The 
wires to be connected are the 8 data lines, the lower 8 address lines and the control lines 
WAIT, IN, OUT and RESET. System 80 owners will also have to do as the Model III owners did 
plus you will have to generate the IN and OUT signals in IC10. To do this the 1/0 request line 
and the READ and WRITE lines have to be combined in IC10 by connecting them to the 3 pin connector 
as indicated on the stuffing diagram and also mentioned in a previous paragraph. 

Now for the power connections. The circuit is designed for either A/C or D/C input. Those 
who are going to use A/C from a low voltage transformer of about 8 to 12 volts will use the 
connections indicated by the sinewave on the underneath of the board. You also have the advantage 
of being able to tap off the unregulated D/C if required. Those using an external D/C supply 
such as a "plug pack" type should use the D/C pins correctly polarised as indicated with the 
+ and - signs. A 9 volt battery snap connector such as TANDY 270-235 or DICK SMITH P-6216 is 
quite suitable for this. Connect your power pack to the connector, check that it is switched 
to 9 volts and the polarity connector is + to + and - to -. If you have a multimeter you can 
check the polarity for yourself before you connect it to your precious board. You may also 
like to monitor the 5 volt supply as you switch on the power, or even check the regulator before 
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you plug in the other chips. 

Now insert the I/c's in their sockets. TTL first (practice with the cheap ones) If the pins 
are spread too wide for the socket, gently bend each row of pins inwards using a" pair of long- 
nose pliers being careful not to overdo the job. When handling the LSI chips the normal static 
electricity precautions should be observed. Don't remove them from their static protected package 
until you have finished everything else and you are ready to fit them. Earth yourself and the 
board to ensure that all static electricity is discharged; remove the LSI chips and insert them 
in their respective sockets. Although most MOS LSI chips have static protection built in these 
days, it is still good practice to observe the above precautions. For those of you who are 
worried about earthing everything while living in the modern vinyl /synthetic house, the kitchen 
sink is an excellent place to do this. Those of you who have traded in your sink on a dish 
washer have a slight problem! 

Now comes the real test!!! Switch on the power to the board without it being connected to your 
computer. If, when you switch on, everything just sits there calmly, very good. You may now 
proceed to the next step, but if the power pack hums loudly and/or smoke pours from the board 
first panic and then switch off and try to find out what went wrong. Hopefully this will not 
happen to anybody. Next switch off everything, connect your ribbon cable to your computer edge 
connector. Plug in the cable that connects your JOYSTICKS to the A/B inputs, switch on the 
plug pack first, followed by the computer. Type in your simple test program and run it, call 
your family and friends and show them what a clever boy you are. 

Now for some more detailed programming information on the operation of the board. The A/D input 
is straight forward in that it is addressed as an input port exactly as described in the LEVEL 
II handbook. It is also addressed in assembly language as an input port. In both cases, the 
8 bit value of the analogue input voltage of the addressed port is returned to the computer. 
In the case of the LEVEL II program, the 8 bit value is returned in decimal value to the variable 
used in the input statement. The assembly program input command returns the digital value directly 
to the accumulator. The BASIC command would be in the form of Variable=INP(Port number) 
e.g. X=INP(0). Assembly language programmers would use IN A(Port number). 

As you can see, using the A/D function is fairly straight forward but programming the Parallel 
I/O Ports is a little more complicated. The Programmable Peripheral Interface (PPI), INTEL 
or NATIONAL SEMICONDUCTOR 8255 is capable of 3 modes of operation. The first of these is Mode 
0, which is also the simplest to use. It allows data to be written to or read from any of the 
available ports (A, B or C) without the use of any "handshaking" signals. Before any data is 
transferred to or from the PPI, it must first be "set up" or programmed. As in any computer 
operation, the use of the PPI must be pre-planned into the program using the device. With this 
knowledge of the PPI requirements, we know in advance in which "direction" we want the ports 
programmed. As an example, we may require 8 input or sense lines and 16 output or control lines. 
This requirement can be met in 3 different ways, A IN with B and C OUT, or B IN with A and C 
OUT, or C IN with A and B OUT. As you can see the PPI is very adaptable, but how do we "set 
up" this chip to do what we want? The PPI is programmed by writing a CONTROL WORD into the 
CONTROL REGISTER. Sounds simple doesn't it - well it is. If you look at the Mode Port Definition 
Chart, a quick scan down the Group A - Group B columns will reveal the 16 possible combinations 
of input and output ports. Remember from last month, port C can be split into 2 groups of 4 
lines giving in effect 4 ports. Looking at these columns, we can pick out the control word 
to suit our requirement. The control words to fit the 3 variations mentioned above are 144, 
130, 137, respectively or, if you prefer, HEX 90H, 82H, 89H. If you're a binary freak, you 
will notice a tie-up between the control word BIT columns and the 4 port columns. Data bit 
4 controls the direction of port A, a "1" for IN and a "0" for OUT. Data bit 3 similarly controls 
the upper 4 bits of port C, data bit 1 controls port B and data bit controls the lower 4 bits 
of port C. Now that you know what control word is needed, it has to be written into the control 
register. Looking at the Port Select chart, we see that the control register sits at chip address 
3. Our PPI's are placed at addresses 8 and 12 (IC9 and IC8 respectively). This means that 
their control registers are located at 3 address locations above this, or Port addresses 11 
and 15. If we want to set both PPI's to the same condition, e.g. A IN, B and C OUT, we would 
write to both control registers at addresses 11 and 15, the control word 144 decimal or 90 HEX. 
On receiving the new control word, the PPI clears all internal registers and sets the various 
ports to the direction specified by the control word. If we now request an input from port 
A, (IN port 8 or IN port 12), the 8 bit word being presented to the ports external pins is latched 
into the A register and then placed on the data bus for the computer. To write to the ports 
is equally simple - to output to port B, simply OUT 9, XXX or OUT 13, XXX and the value is latched 
into the output latch of port B. Port C is similar except that it uses port addresses 10 and 
14 depending on which chip you use. At this point I should correct a typing error in the second 
part of this article. In the fourth line from the bottom of page 10, the reference to "PORT 
B" should be changed to "PORT 8". I hope this clears up any confusion that may have been caused. 

The output of the PPI port C can also be varied by the BIT SET/RESET control word. If you look 
at the diagram you will see how to select the control word to perform your required function. 
The bit set/reset function is selected by data bit 7, a "0" selects the bit set/reset mode. 
The next 3 bits D6,D5,D4 are not used and should be 0, bits D3,D2,D1 select in binary, the bit 
that you want to change while bit D0 selects whether you want to set it "1" or reset it "0". 
As an example we will set data bit 7 on port 10. To do this the control word is as follows: 
D7=0 (selects bit mode) D6,D5,D4-0 (not used) D3,D2,D1=1 (selects data bit 7) D0=1 (sets the 
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bit), this gives us the control word 15 or 0F Hex and Bit 7 is set regardless of its previous 
condition while the remaining bits remain unchanged. 

The remaining modes 1 and 2 will not be covered here as they do not generally apply in the type 
of design presented, although I'm sure someone could if the need arose. If you want to use 
these modes, I suggest that you consult the manufacturer's data books for details. In the future 
if a project that uses these other modes is developed by somebody and submitted to MICRO-80, 
I am sure that a detailed description of these modes of operation will be included with the 
article. 

8255 PROGRAMMABLE PERIPHERAL INTERFACE - DATA 



mode port definition chart 



Decimal 


HEX 

No. 


Control Word Bits 


Group A 


Group B 


No 


D 7 


D 6 


D 5 


D 4 


D 3 


D 2 


Di 


Do 


Port A 


PortC 
(Upper) 


Port B 


PortC 
(Lower) 


»28 _, 


8.0 

























OUTPUT 


OUTPUT 


OUTPUT 


OUTPUT 


IZ9 


81 






















1 


OUTPUT 


OUTPUT 


OUTPUT 


INPUT 


\30 


82 



















1 





OUTPUT 


OUTPUT 


INPUT 


OUTPUT 


13/ 


83 



















1 


1 


OUTPUT 


OUTPUT 


INPUT 


INPUT 


136 


88 













1 











OUTPUT 


INPUT 


OUTPUT 


OUTPUT 


;37 


89 













1 








1 


OUTPUT 


INPUT 


OUTPUT 


INPUT 


138 


6R 













1 





1 





OUTPUT 


INPUT 


INPUT 


OUTPUT 


131 


8B 













1 





1 


1 


OUTPUT 


INPUT 


INPUT 


INPUT 


Ik-It 


90 
























INPUT 


OUTPUT 


OUTPUT 


OUTPUT 


[h-S 


9/ 





















1 


INPUT 


OUTPUT 


OUTPUT 


INPUT 


\k-b 


92 


















1 





INPUT 


OUTPUT 


INPUT 


OUTPUT 


\kn 


93 


















1 


1 


INPUT 


OUTPUT 


INPUT 


INPUT 


152 


98 












1 











INPUT 


INPUT 


OUTPUT 


OUTPUT 


IS3 


99 












1 








1 


INPUT 


INPUT 


OUTPUT 


INPUT 


ISt 


q/? 












1 





1 





INPUT 


INPUT 


INPUT 


OUTPUT 


iss- 


96 












1 





1 


1 


INPUT 


INPUT 


INPUT 


INPUT 





Port Select (Ao, Ai): These two inputs, which are 
normally connected to the least significant bits of the 
A15-A0 Address Bus, control the selection of one of 
three 8-bit ports (A, B and C) or the internal control 
word register as indicated below. 



A, 


A 


Selected 








Port A 





1 


PortB 


1 





PortC 


1 


1 


Control Word Register 



07 


06 


05 


04 


03 


02 


01 


DO 



MODE 

SET 

FLAG: 

1 = ACTIVE 



1 

MODE SELECTION: 
00- MODE 
01 = MODE 1 
IX = MODE 2 



PORTA: 
1 = INPUT 



PORTC 

(UPPER): 

1 = INPUT- 

= OUTPUT 



MODE 
SELECTION: 

= MODE0 

1 = M0DE1 



PORTB: PORTC 

1 = INPUT < L0WER > : 

= OUTPUT 1 = INPUT 

= OUTPUT 



mode definition control word format 



07 


06 


05 


04 


03 


02 


01 


00 



BIT \ 

SET/RESET 

FLAG: 
0= ACTIVE 



bit set/reset control word format (port c only) 



yv 



1 

BIT SELECT: 

000 = 

001 = 1 

010 = 2 

011 = 3 

100 = 4 

101 = 5 

110 = 6 

111 = 7 



BIT 
SET/RESET: 

1 = SET 
= RESET 
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COMPONENT STUFFING DIAGRAM 

PLEASE TAKE NOTE OF THE PORT PIN NUMBERING 





A8 8255 





— (HB-* — QSK 

IIS I 

ll I 



This is the only top soldered component. Unless the 

optional 10nF capacitors alongside the parallel ports 

are fitted, they have to be top soldered also. 




NEGATIVE 
REFERENCE RV2 

POSITIVE 
REFERENCE RV1 



GROUND 



TRS-80 EXPANSION PIN EDGE 





SIGNAL 




P/N 


NAME 


DESCRIPTION 


1 


RAS* 


Row Address Strobe Output for 16-Pin Dynamic Rams 


2 


SYSRES* 


System Reset Output, Low During Power Up Initialize or 
Reset Depressed 


3 


CAS* 


Column Address Sirobe Output for 16-Pin Dynamic Rams 


4 


A10 


Address Output 


5 


A12 


Address Output 


6 


A13 


Address Output 


7 


A15 


Address Output 


8 


GND 


Signal Ground 
Address Output 


9 


All 


10 


A14 


Address Output 


11 


A8 


Address Output 

Peripheral Write S'robe Output 


12 


OUT* 


13 


WR* 


Memory Write Strobe Output 


14 


INTAK* 


Interrupt Acknowledge Output 


15 


RD* 


Memory Read Strobe Output 


16 


MUX 


Multiplexor Cor.tlol Output for 16-Pin Dynamic Rams 


17 


A9 


Address Output 
Bidirectional DaU Bus 


18 


D4 


19 


IN* 


Peripheral Read ."trobe Output 


20 


D7 


Bidirectional Dats Bus 


21 


INT* 


Interrupt Input (Maskable) 
Bidirectional Datn Bus 


22 


Dl 


23 


TEST* 


A Logic "0" on TStT* Input Tri-States A0- A15, D0-D7, 
WR*, RD*, IN*, OUT*, RAS», CAS*, MUX* 


24 


D6 


Bidirectional Dsta Dus 


25 


AO 


Address Output 


26 


D3 


Bidirectional Data Bus 


27 


Al 


Address Output 


28 


D5 


Bidirectional Data Bus 


29 


GND 


Signal Ground 


30 


D0 


Bidirectior.il! D;ta Eus 


31 


A4 


Address B'.:« 


32 


D2 


Bidirectional Data Bus 


33 


WAIT* 


Processor Wait Input, to Allow for Slow Memory 


34 


A3 


Address Output 


35 


A5 


Address Output 


36 


A7 


Address Output 


37 


GND 


Signal Ground 
Address Output 


38 


A6 


39 


+ 5V 


5 Volt Output (Li:mted Current) 


40 


A2 


Address Output 


NOTE: 'means 


Negative (Logical "R") True Input or Output 



36 38 iO 



Mates with AMP P/N 88 103-1 Card 
Edge Connector or Equivalent 



Connection points for Expansion-Port Edge Card 
(viewed from rear of keyboard assembly) 



SYSTEM-80 
EXPANSION PIN EDGE 

2 VIEWED FROM REAR SIDE 50 





1 




49 


PIN 


SIGNAL 






1 


GND 


26 


A10 


2 


GND 


27 


A13 


3 


A7 


28 


All 


4 


A6 


29 


A12 


5 


A5 


30 


PHI 


6 


A4 


31 


PINT 


7 


Al 


32 


NC 


8 


A3 


33 


NC 


9 


A2 


34 


PHLDA 


10 


A0 


35 


PHANTOM 


11 


D5 


36 


HALT 


12 


D2 


37 


PWAlT 


13 


NC 


38 


IORQ 


14 


Dl 


39 


PHOLD 


15 


DO 


40 


WR 


16 


D3 


41 


ED" 


17 


D7 


42 


CCDBS/STADBS 


18 


D6 


43 


MREQ 


19 


VCC 


44 


DODBS/ADDSS 


20 


D4 


45 


Ml 


21 


A15 


46 


RESET 


22 


A8 


47 


RFSH 


23 


A14 


48 


NMI 


24 


A9 


49 


GND 


25 


NC 


50 


GND 



SIGNAL EXPLANATION 




PHOLD 
WR 

RD 

CCDBS /STADBS 

RRW 

DODB57ADT3BS 

Ml 

RESET 

RFSH 

NMI 



1.79MHz CLOCK 

INTERRUPT 

NO CONNECTION 

PROCESSOR HOLD ACKNOWLEDGE 

PHANTOM 

HALT ACKNOWLEDGE 

PROCESSOR WAIT 

INPUT/OUTPUT REQUEST 

PROCESSOR HOLD 

PROCESSOR WRITE 

PROCESSOR READ 

CONTROL AND DATA BUS DISABLE 

MEMORY REQUEST 

DATA AND ADDRESS BUS DISABLE 

FIRST STATE OF INSTRUCTION CYCLE 

CPU RESET 

DYNAMIC MEMORY REFRESH 

NON-MASKABLE INTERRUPT 
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5v 



D7 



D6 



D5 



D4 



D3 



D2 



D1 



D0 



GND 



8 ftfJ/STO/?£ 
>4r- IOKjv. 




PORT INPUT SWITCH 



SYSTEM-80 TO TRS-80 



5v 



D7 



D6 



D5 



D4 



D3 



D2 



D1 



RD 






IN 



IORQ 



WR 



i> 



OUT 



74LS32 



DO 



GND 



74-J.S# f 



o 

i> 
O 
O 



S Red 

LEDi , 

J, ^ 

— M — VW^ 1 



■A/W — ■» 



-M 'VW — " 



-M — W — i' 



o 



-\& <VW j ' 



-{^g /\/W — i » 



-f^ / WA/ > — " 



| ^ -~j^\f\^—..^ 



8 'tesisrcx;? 
^ klO-n- 



74-LS 00 



PORT OUTPUT MONITOR 




5 VOLT POWER SUPPLY 



8255A BASIC OPERATION 



*1 


An 


RD 


WR 


cs 


INPUT OPERATION (READ) 











1 





PORT A = DATA BUS 





i 





1 





PORT B =■ DATA BUS 


1 








1 





PORT C= DATA BUS 












OUTPUT OPERATION 
(WRITE) 








1 








DATA BUS =• PORT A 





1 


1 








DATA BUS - PORT B 


1 





1 








DATA BUS => PORT C 


1 


1 


1 








DATA BUS - CONTROL 












DISABLE FUNCTION 


X 


X 


X 


X 


1 


DATA BUS » 3-STATE 


1 


1 





1 





ILLEGAL CONDITION 


X 


X 


1 


1 





DATA BUS =► 3-STATE 



pin configuration 



— 


2 




1 




6 




8 


— 


9 


— 


10 


— 


11 


— 


12 


— 


13 


— 


14 


— 


15 


— 


IB 


— 


17 


— 


18 


— 


19 


— 


20 



8255 



PAH 

PA5 



RESET 

DO 

D| 

02 

03 

04 

05 

06 

0; 

VCC 

PB7 
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Joysticks and I/O Ports (contj 

We will conclude this series of articles with some sample programs in both BASIC and machine 
language to illustrate some of the possible applications of this hardware project The final 
part will also include full -si zed PC board masters for the TRS-80 Model I At "a later date 
we will describe how to construct separate adaptor boards for SYSTEM-80 (Video Genie) and Model III 
computers. It is our intention to make the PC boards available to our readers to assist with 
the project. The price of the board will be announced in a future issue. 

-0000000000- 

***** '80 USERS' GROUPS ***** 

The following is a list of '80 Users' Groups. If you have a group that is not included here, please let us know about 
it so that we can publish details. Owners of Systei '80s are welcome at all the groups. 



AUSTRALIAN CAPITAL TERRITORY 
CANBERRA GROUP 



** AUSTRALIA ** 

SOUTH AUSTRALIA 



Contact: Bill Cushing, 10 Uraibi Village, Kaibah, ACT. 

2902. 
MEETINGS: 3rd Thursday of each month at 7.30 p. a. in: 

Uraibi Village Community Centre, Crozier Circuit 

Kaabah. 

NEW SOUTH WALES 

COHPUTERTOWN CAMDEN (CTAUSI) 

Contact: Keith Stewart 

P.O. Box 47, Camden, N.S.W. 2570. 

SYDNEY HAPPER CP/H GROUP 

Contact: Dan Lawrence, Mapper CP/H Users' Group, 

c/o G.P.O. Box 2551, SYDNEY, N.S.W. 2001. 

SYDNEY EASTERN SUBURBS 

Contact: Dan Lawrence, 

TRS-80 Eastern Suburbs Group, 

c/o G.P. Box 2551, SYDNEY, N.S.W. 2001. 

W0LL0NG0NG GROUP 

Contact: Paul Janson, 

P.O. Box 397, DAPTO, N.S.W. 2530. 

NORTHERN TERRITORY 

DARWIN GROUP 

Contact: Tony Doaigan, 

P.O. Box 39086, WINNELLIE, N.T. 5789. 

QUEENSLAND 

BRISBANE GROUP 

Contact: Lance Lawes, 

Tel: Hone (07)396 2998 

Bus. (07)268 1191 Ext. 15 
MEETINGS: 1st Sunday each sonth at 2 p.sa. at 21 Rodney 

Street, Lindua. 



ADELAIDE GROUP 

Contact: Rod Stevenson, 

36 Stiirt Street, ADELAIDE, S.A. 5000. 
Tel: 51 5241 bet. 9-4. 

VICTORIA 

EASTERN SUBURBS GROUP 

Contact: Nr. John Fletcher 

Tel: Horse (03)737 9544 

Bus. (03)89 0677 (9-4) 
MEETINGS: 4th Wednesday of the month at 7 p.m. at 

Kingswood College, 355 Station Street, Box Hill 

HICOM 80 USERS' GROUP 

Contact: Len Sanders 

Tel: (03560 8132 
MEETINGS: 1st Wednesday of each ionth at Alvie Hall, 

High Street, Mt. Waverley. 

NORTHERN AND WESTERN SUBURBS 

Contact: Mr. David Coupe 

Tel: (03)370 9590 
MEETINGS: C.P.H. Data Systeas, 284 Union Road, Hoonee 

Ponds - Alternate Thursdays at 7 p.n. 

PENINSULAR GROUP 

Contact: H.G. Thoipson - (03)772 2674 
MEETINGS: 2nd Tuesday of the month (except Jan.) 

GEELONG COMPUTER CLUB 

Contact: The Geelon Conputer Club, 

P.O. Box 6, GEELONG, VIC. 3220. 
MEETINGS: 2nd Tuesday of the ionth at Tybar Engineering 

Hampton St. Newton. 



NATIONAL 



NATIONAL USERS' GROUP 



** UNITED KINGDOM ** 

NATIONAL NEWCASTLE PERSONAL COMPUTING SOCIETY 



Contact: Brian Pain, 40 High Street, Stoney Stratford, 
Hilton Keynes. 



Contact: John Stephen Bone - 0632 770036 



CO. DURHAM NORTH-EAST TRS-80 GROUP 

Contact: Barry Dunn, 8 Ethick Tee. North Craighead, 

Stanley, Co. Durhai, DH9 6BE. Tel: 0207-30184 



BOLTON 



NORTH-WEST TRS-80 GROUP 



Contact: The Secretary, North-West TRS-80 Users Group, 
40 Cowlees, West Houghton, Bolton BL5 3EG. 



COMPUTERTOWN UNITED KINGDOM (CTUK!) 

Contact: Dave Tebbutt, c/o 14 Rathbone Place, London 
HIP IDE 



COMPUTERTOWN NORTH - EAST (CTNE!) 

Contact: c/o 2 Clareaont Place, Gateshead, Co. Tyne £ 

Wear NE8 1TL. Tel: 0632-770036/643417/679119/ 
559167 



TANDY OWNERS PROGRAM & INFORMATION CO-OP. 

Contact: Derek Higbee, 12 Shelley Close, 
Ashley Heath, Ringwood. 
Tel: Ringwood 6720. 
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***** MICRO-BUGS ***** 
In which we correct those errors which seem to creep in, no matter how careful we are. 
SUPER SIZZLER - Issue 6, pages 39-43. 
There are two bugs in this program: 

(a) upon trading in the chassis, the amount of the debt is indeed decreased by $750 dollars, 
but in fact the jacks are removed. 

(b) Upon trading in either the wheels or the body, the correct part is removed, but the debt 
is i ncreased rather than decreased, with the result that the program enters an endless 
loop, withHFhe poor player's indebtedness increasing without limit. 

The following amendments to the program will remove these difficulties: 

(a) Line 1010 - make this read "IF PS=-1 THEN 1130" 

(b) New line 1011 - "X=41 : FOR Y=10 TO 13 etc." (to the end of the old line 1010) 

(c) Line 1130 - change this to: "FOR X = 208 TO 237:PRINT @ X, " ";: NEXT: GOSUB 1011: RETURN" 
(note the change to the GOSUB address). 

(d) Line 1370 - add the instruction "PS=-1" immediately after "GOSUB 1200". 

(e) Line 1450 - once again, add "PS=-1" immediately after "XX = 0". 

Some additional changes necessary to make the program perform sensibly on a "SYSTEM 80" are 
as follows: 

(a) Line 320 - change CHR$(94) to CHR$(62) and CHR$(93) to CHR$(60) - (in two places for 
each). 

(b) Lines 520, 590, 600, 630 and 640 - change "[" to CHR$(168). 

(c) Lines 570 and 580 - change CHR$(8) to CHR$(44) and CHR$(9) to CHR$(46). 

(d) Line 2130 - add ELSE CLS immediately following RUN. 

(e) Line 130 - change to read: " MONEY. USE THE LEFT AND RIGHT ARROW KEYS "; 

ASTRONOMY 1.0 - Issue 15, pages 21-31. 

There has been considerable interest in this program and many readers have contacted the author 
directly. He reports that Lines 811, 2320, 4036 and 4110 should be changed to remove a problem 
in section 3 with rising and setting of fixed objects and to improve accuracy. Edit the lines 
to read as follows: 

811 INPUT "ENTER DAY, MONTH, YEAR";D,M0,Y:F1=D:F2=M0 

2320 GOSUB 7200 

4036 VI =V : V=V+282-510396 

4110 T=COS(V1*J1)*0- 016720+1 : T2=0«9997156 : F=T/T2 

U.K. reader, Reg Fidler, points out a typographical error in the text accompanying the program. 
In paragraph 3 (Greenwich Sidereal Time to Greenwich Mean Time conversion) the answer is given 
as 12 hours 57 mins. 59 seconds. This should be 12 hours 51 mins. 59 seconds. 

Reader, R.J. Sykes, suggests an error trapping routine to overcome an "FC ERROR" which can appear 
on one calculation. 

15105 ON ERROR GOTO 19000 

19000 QP=ERR/2+l:IF QP=5 THEN PRINT "THIS OBJECT EITHER DOES NOT RISE OR SET AT YOUR LOCATION." 

19010 PRINT "CHECK YOUR CO-ORDINATES OR CHOOSE ANOTHER OBJECT." 

19020 RESUME 18000 

UTIL 1, 2, 3 & 4 - Issue 21, pages 28-34. 

During the printing of these program listings some lines did not reproduce. 

UTIL 1 

READY 

Return to ROM 

FLASH 

Save the character to repeat 

KLOOP 

Save repeat count 

Reset counter 

Fetch the character to repeat 



4315 


28 11 


JR Z,4328 


4325 


C3 58 04 


JP 0458 


4331 


CD 65 43 


CALL 4365 


433A 


32 83 43 


LD(4383),A 


4345 


F2 42 43 


JP P, 4342 


434B 


2A 81 43 


LD HL,(4381) 


4357 


32 7F 43 


LD(437F),A 


435D 


3A 83 43 


LD A, (4383) 
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4360 
4366 
4375 
4378 
438B 
4391 

4398 

UTIL 2 



22 81 43 
2A 7F 43 

21 00 03 

22 7F 43 
21 30 43 

21 85 43 

22 A4 40 



LD(4381),HL 
LD HL,(437F) 
LD HL, 0300 
LD (437F),HL 
LD HL, 4330 
LD HL, 4385 

LD (40A4),HL 



Adjust the repeat counter 
Fetch the flash count 
Flash rate delay 
and save it 
point to REPEAT 
point to end +1 
change 85 to AA to ^ave INIT. 



Some instructions had the high byte 43 missing. The address of these instructions are: 

4FC0 4FC6 



4F55 
4FD2 



4F5B 
4FD8 



4F65 
4FDB 



4FAC 
4FE1 



4FB5 
4FF3 



The 43 byte should be in the second address following the above addresses. 
UTIL 3 



42EA 
4315 
4325 
4356 
435F 
436A 
4370 
4382 
4385 
438B 
439A 
439D 
43B0 
43B6 

UTIL 4 



21 A9 43 
28 10 

18 08 
CD 8A 43 
32 A8 43 
F2 67 43 
2A A6 43 
3A A8 43 

22 A5 43 
2A A4 43 

21 90 01 

22 A4 43 
21 55 43 
21 AA 43 



LD HL, 43A9 
JR Z, 4327 
JR, 432F 
CALL 438A 
LD (43A8),A 
JP P, 4367 
LD HL, (43A6) 
LD A, (43A8) 
LD (43A6), HL 
LD HL, (43A4) 
LD HL, 0190 
LD (43A4), HL 
LD HL, 4355 
LD HL, 43AA 



scroll on/off flag 

READY 

LWRCSE 

FLASH 

KLOOP 



change AA to CF to save INIT. 



High byte 4F missing from the following instructions - 



4F30 
4FC6 



4F36 
4FD2 



4F40 
4FD8 



4FAC 
4FDB 



4F35 
4FE1 



4FC0 
4FF3 



The flashing cursor may leave unwanted characters on the screen during graphic disnlavs 
may be eliminated by turning the cursor off. uunng graprnc displays 



This 



Util 

1 
2 
3 
4 



Address 

17267 

20462 32750 4K & 16K respectively 

17304 

20462 32750 4K & 16K respectively 

To turn cursor OFF poke into the address. 
To turn it back on poke 208 into the address. 

Any value may be POKEd in to turn the cursor back on and this will give a different character, 

- 0000000000 - 



***** INPUT/OUTPUT ***** 

From David Harris, 470 Marion Road, Plympton Park, South Australia 5038 

I am interested in developing the use of my TRS-80 for computer-aided 

an engineer and have already developed some programs on the fringe of 

to take it further. I would like to contact anyone interested in this 

request that any interested reader contact me on 'phone number (08) 297 8207 during office hours 

(It sounds an interesting and challenging application, David. Would any interested readers 
please contact David directly - Ed.) 



design (C.A.D). I am 

C.A.D. but am looking 

type of application and 
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From: Mr. R. Hut son - London SE 12. 

I would like to comment on the letter from B.N. Hall on page 11 of issue 19, where cassette 
waveform problems were described and a method of reproducing the correct waveform was included. 
This method required two comparators and two timers; these used the asymmetrical waveform to 
generate symmetrical pulses. 

I believe that I have an answer to the problem using a simple single stage transistor circuit. 
I approached the problem by reproducing a pulse of similar shape and frequency from a pulse 
generator, from this I received a small positive response and a large negative response from 
my CTR41 cassette recorder. Upon further experimentation, I found that by sending the negative 
part of the pulse first (inversion), the waveform was reproduced perfectly, as the TRS-80 rectifies 
the audio input for processing, and inverting the pulse makes no difference. 

Inversion was achieved by a single stage transistor circuit (audio amplifier), shown below with 
excellent results. 

I have not investigated further as the problem had been solved, but I have had no dropouts since. 
I would be interested in a full explanation of why the recorder should prefer negative pulse 
before working. I would also be interested in a high speed cassette which I will start work 
on in the near future (approx. 4800 band). 



IN 



lr 






«— flr 



220uF 



6K8 



22K 




+ 5-9 V 



v OUT 



(Thank you for this contribution Mr. Hutson. Vie have recently been carrying out an investigation 
into the cassette interface with a view to improving the quality of the cassettes we produce. 
We observed the phenomenon you describe but, as yet, have no explanation for it It not only 
occurs in the relatively unsophisticated CTR41/CTR80/Video Genie cassette recorders but also 
in much more expensive cassette decks and high speed amplifiers. I suspect the real answer 
lies in the fact that we are dealing with a very non-linear system. Although the waveform ot 
each pulse aporoaches a sinusoid after passing through the amplifier and being differentiated 
by the recording process, it should be remembered that each pulse is a single event and steady 
state theory does not apply - at least, not to the pulses as we see them on an oscilloscope. 
I seem to vaguely remember in my student days using Fourier Transformers to express signals 
such as these in steady-state terms. Perhaps one of our readers who is more au fait with these 
matters could offer an explanation (but please do not make it too mathematical). On the other- 
hand, there may be a simple explanation - we would love to hear it. Concerning the high speed 
cassette interface you mention - one at least has already been developed in the U.S.A. It is 
called the "Poor Man's Floppy" model TC-8. It is available from JPC PRODUCTS CO 12021 Paisano 
Ct. Albuquerque, New Mexico 87112 and operates at 2500 band. It sells in kit form for US$90 
and assembled for US$120. Ue understand that in Australia De Forest Software, Station Street, 
Nunawading, Vic, also has these units available - Ed.) 



erfnrat-innal iisps of the '80 Many people might be surprised to find the extent to wm en micro 

I a?/ are "e "n'g ted "?i seconZy "school's throughout Australia our «n s.all region as 

annrnximatelv 50 TRS-80 and System 80 computers in about half a dozen schools), mis oeing 

case iti Quite possible that a significant number of your readers are involved in computer 

c S of HJTJ Could this readfrshlp be sufficiently large for you to consider including 

in each issue, a program which has a formal educational purpose as its main function. 

Your comments regarding educational use of computers in seisin ^^^aTia'tVcourlgrng 
by pursuing such a course, perhaps you could assist we "beginners in Australia by encouraging 
contributions from your more experienced UK subscribers. 

(We would be only too happy to publish more educational programs and rel^ 

if onlv it were forthcoming. Unfortunately, many of the educational programs suDmHtea to 
us for consideration are no more than testing programs to ascertain how much a child knows 
U Whil°st ^ch programs have their place, there is a limit to the number • * such programs .which 
can be usefully published. It is strange, because we ^^^^"^^^^ e^In 7e 
DeoDle when deciding to purchase a computer is its educational value to their emmren we 
will certainly be happy to publish as many good educational programs as possible and will also 
be haoDv to do our bit in helping to disseminate information about this field. In fact we 

and I am sure they would welcome participation from any of our readers. - td.) 
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DONT BE HELD BACK BY AM 
ANTIQUATED DISK OPERATING SYSTEM 

MOVEUPTO 
NEWDOS80 $149 incl. p&p 

NEWDOS 80 is a completely new DOS for the TRS-80 
SYSTEM 80, It is well-documented, bug free and 
increases the power of your system many times over. It 
is upward compatible with TRSDOS AND NEWDOS (ie 
TRSDOS and NEWDOS+ programs will run on 
NEWDOS 80 but the reverse is not necessarily so). 

These are just a few of the many new features offered 
by NEWDOS 80. 

New BASIC commands that support variable record 
lengths up to 4095 bytes long. 
Mix or match disk drives. Supports any track count 
from 18 to 96. Use 35, 40, 77 or 80 track 5% inch 
mini disk drives, 8 inch disk drives OR ANY COM- 
BINATION. 

An optional security boot-up for BASIC or machine 
code application programs. User never sees "DOS- 
READY" or "READY" and is unable to "BREAK", 
clear screen or issue any direct BASIC statements, 
including "LIST". 

New editing commands that allow program lines to 
be deleted from one location and moved to another 
or to allow the duplication of a program line with 
the deletion of the original. 

* Enhanced and improved RENUMBER that allows 
relocation of subroutines. 

Create powerful chain command files which will 

control the operation of your system. 

Device handling for routing to display and printer 

simultaneously. 

* MINIDOS - striking the D, F and G keys simul- 
taneously calls up a MINIDOS which allows you to 
perform many of the DOS commands without dis- 
turbing the resident program. 

Includes Superzap 3.0 which enables you to display/ 
print/modify any byte in memory or on disk. 
Also includes the following utilities: 

— Disk Editor/Assembler 

— Disassembler (Z80 machine code) 

— LM offset — allows transfers of any system tape 
to Disk file — automatically relocated. 

— LEVEL I — Lets you convert your computer back 
to Level 1 . 

— LVIDKSL 
disk. 

-DIRCHECK • 
and lists them. 

— ASPOOL — An automatic spooler which routes a 
disk file to the printer whilst the computer con 
tinues to operate on other programs. 

— LCDVR — a lower case drives which display lower 
case on the screen if you have fitted a simple lower 
case modification. 



DISK DRIVE USERS 
ELIMINATE CRC ERRORS 
AND 
TRACK LOCKED OUT MESSAGES 
FIT A PERC0M DATA SEPARATOR 
$37.00 plus $1.20 p&p. 
When Tandy designed the TRS-80 expansion interface, 
they did not include a data separator in the disk- 
controller circuitry, despite the I.C. manufacturer's 
recommendations to do so. The result is that many 
disk drive owners suffer a lot of Disk I/O errors. The 
answer is a data separator. This unit fits inside your 
expansion interface. It is supplied with full instructions 
and is a must for the serious disk user. 



Saves and loads Level 1 programs to 
— Tests disk directories for errors 



MPI DISK DRIVES 
HIGHER PERFORMANCE - LOWER PRICE 

MPI is the second largest manufacturer of disk drives in 
the world. MPI drives use the same form of head 
control as 8" drives and consequently, they have the 
fastest track-to-track access time available - 5msec! All 
MPI drives are capable of single or double-density 
operation. Double-density operation requires the instal- 
lation of a PERCOM doubter board in the expansion 
interface. 

As well as single head drives, MPI also makes dual- 
head drives. A dual-head drive is almost as versatile as 
two single-head drives but is much cheaper. 

Our MPI drives are supplied bare or in a metal cabinet 
- set up to operate with your TRS-80 or SYSTEM 80. 
All drives are sold with a 90 day warranty and service is 
available through MICRO-80 PRODUCTS. 

MPI B51 40 Track Single Head Drive only $349 

MPI B52 40 Track Double Head Drive only $449 

Prices are for bare drives and include p&p. Add $10.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. 40 track drives are entirely compa- 
tible with 35 track drives. A 40 track DOS such as 
NEWDOS 80 is necessary to utilise the extra 5 tracks. 



OVER 800 KILOBYTES ON ONE DISKETTE! 
WITH MPI 80 TRACK DRIVES 

MPI 80 track drives are now available. The B91 80 
track single-head drive stores 204 Kilobytes of for- 
matted data on one side of a 5% inch diskette in single- 
density mode. In double-density mode it stores 408 
Kilobytes and loads/saves data twice as quickly. 
The B92 80 track dual-head drive stores 204 Kilobytes 
of formatted data on EACH side of a 5% inch diskette 
in single-density mode. That's 408 Kilobytes per 
diskette. In double-density mode, the B92 stores a 
mammoth 408 Kilobytes per side or 816 Kilobytes of 
formatted data per diskette. With two B92's and a 
PERCOM double, you could have over 1.6 Megabytes 
of on line storage for your TRS-80 for less than $1500!! 

MPI B91 80 Track Single Head Drive only $499 

MPI B92 80 Track Dual Head Drive only $619 

Prices are for bare drives and include p&p. Add $1 0.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. Note: 80 track drives will not read 
diskettes written on a 35 or 40 track drive. If drives 
with different track counts are to be operated on the 
same system, NEWDOS 80 must be used. 



CARE FOR YOUR DISK DRIVES? 

THEN USE 

3M's DISK DRIVE HEAD CLEANING DISKETTES 

$30.20 incl. p&p. 

Disk drives are expensive and so are diskettes. As with 
any magnetic recording device, a disk drive works 
better and lasts longer if the head is cleaned regularly. 
In the past, the problem has been, how do you clean 
the head without pulling the mechanism apart and run- 
ning the risk of damaging delicate parts. 3M's have 
come to our rescue with SCOTCH BRAND, non- 
abrasive, head cleaning diskettes which thoroughly 
clean the head in seconds. The cleaning action is less 
abrasive than an ordinary diskette and no residue is 
left behind. Each kit contains: 

— 2 head cleaning diskettes 

— 1 bottle of cleaning fluid 

— 1 bottle dispenser cap 



PLEASE USE ORDEi FORM ON PAGE 36 



PAGE 18 



USE TANDY PERIPHERALS ON YOUR SYSTEM-80 

VIA 

SYSPAND-80 - $97.50 inc!. p&p 

The SYSTEM-80 hardware is not compatible with the 
TRS-80 in two important areas. The printer port is 
addressed differently and the expansion bus is entirely 
different. This means that SYSTEM-80 owners are 
denied the wealth of economical, high performance 
peripherals which have been developed for the TRS-80. 
Until now, that is. MICRO-80 has developed the 
SYSPAND-80 adaptor to overcome this problem. A 
completely self-contained unit in a small cabinet which 
matches the colour scheme of your computer, it con- 
nects to the 50-way expansion part on the rear of your 
SYSTEM 80 and generates the FULL Tandy 40 way 
bus as well as providing a Centronics parallel printer 
port. SYSPAND-80 enables you to run an Exatron 
Stringy Floppy from your SYSTEM 80, or an LNW 
Research expansion interface or any other desirable 
peripherals designed to interface to the TRS-80 expan- 
sion port. Make your SYSTEM 80 hardware compatible 
with the TRS-80 via SYSPAND-80. 



PROGRAMS BY MICROSOFT 

EDITOR ASSEMBLER PLUS (L2/16K) 
$37.50 + $1.20 p&p 

A much improved editor-assembler and debug/monitor 
for L2/16K TRS-80 or SYSTEM 80. Assembles directly 
into memory, supports macros and conditional assem- 
bly, includes new commands-substitute, move, copy 
and extend. 

LEVEL SIS BASIC $59.95 plus $1.20 p&p 

Loads on top of Level II BASIC and gives advanced 
graphics, automatic renumbering, single stroke instruc- 
tions (shift-key entries) keyboard debounce, suitable 
for L2/16K and up (Not Disk BASIC) 

ADVENTURE ON DISK $35.95 plus $1.20 p&p 

This is the original ADVENTURE game adapted for 
the TRS-80. The game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the level of 
Grand Master. Until you gain skill, there are whole 
areas of the cave that you cannot enter. (Requires 32K 
One Disk) 

BASIC COMPILER $208 plus ^.00 p&p 

New improved version, the Basic Compiler converts 
Disk BASIC programs to machine code, automatically. 
A compiled program runs, on average, 3-10 times faster 
than the original BASIC program and is much more 
difficult to pirate. 



FOS ONLY 




MICRO-80's 16K MEMORY EXPANSION KIT 
HAS BEEN REDUCED IN PRICE EVEN MORE 

Larger volume means we buy better and we pass the 
savings on to you. These are our proven, prime, branded 
200 ns (yes, 200 nanosecond) chips. You will pay 
much more elsewhere for slow, 350 ns. chips. Ours are 
guaranteed for 12 months. A pair of DIP shunts is also 
required to upgrade the CPU memory in the TRS-80 — 
these cost an additional $4.00. All kits come complete 
with full, step-by-step instructions which include 
labelled photographs. No soldering is required. You do 
not have to be an experienced electronic technician to 
instal them. 



DISK DRIVE CABLES 

SUITABLE FOR ANY DISK DRIVES 

DC-2 2 Drive Connector Cable $39 incl. p&p 

DC-4 4 Drive Connector Cable $49 incl. p&p 



DOUBLE THE SPEED AND CAPACITY 
OF YOUR DISK DRIVES 

PERC0MD0UBLER ONLY $220 
plus $2.00 p&p 
Installing a Doubter is like buying another set of disk 
drives, only much cheaper!! The doubler works with 
most modern disk drives including:- MPI, Micropolis, 
Pertec, TEAC (as supplied by Tandy). The doubler 
installs in the TRS-80 expansion interface, the System- 
80 expansion interface and the LNW Research expan- 
sion interface in a few minutes without any soldering, 
cutting of tracks, etc. It comes complete with its own 
TRSDOS compatible double density operating system. 



DOUBLE-ZAP II - DOUBLE DENSITY PATCH 
ORNEWDOSB0 
$53.00 plus $1.00 p&p 

DOS 80, then you also need 

ette. This program upgrades 

rtifilpumK^ensity with ADR (auto 

t 



an 
DOUBisE 
your NEWOO 
matic densit 
features, inclu 
track counts on theHam 
NEWDOS 80 the abilit 
cable, automatically. If y 
diskette in drive 0, say and a 
in drive 1, Double-Zapli wi 



tains all the familiar 

tb\mix and match 

addition, it gives 

es oa the same 

ngle^^ensity 

ublW^psity diskette 

recotmjse this and reac 



write to drive in single density white! at the same 
time it reads/writes to drive 1 in double density! 



FLOPPY DOCTOR AUD MEMORY DIAGNOSTIC 
(by MICRO CLSNiC) $29.95 plus 50c. p&p 
Two machine language programs on a diskette together 
with manual which thoroughly test your disk drives 
and memory. There are 19 possible error messages in 
the disk drive test and their likely causes are explained 
in the manual. Each pass of the memory tests checks 
every address in RAM 520 times, including the space 
normally occupied by the diagnostic program itself. 
When an error occurs the address, expected data, and 
actual data are printed out together with a detailed 
error analysis showing the failing bit or bits, the corres- 
ponding IC's and their location. This is the most 
thorough test routine available for TRS-80 disk users. 



BOOKS 

LEVEL IS ROM REFERENCE MANUAL 
$4.95 + $1.20 p&p 

Over 70 pages packed full of useful information and 

sample programs. Applies to both TRS-80 and SYSTEM 

80. 

TRS-80 DISK AND OTHER MYSTERIES 

$24.95 + $1.20 p&p 

The hottest selling TRS-80 book in the U.S.A. Disk file 

structures revealed, DOS's compared and explained, 

how to recover lost files, how to rebuild crashed 

directories — this is a must for the serious Disk user 

and is a perfect companion to any of the NEWDOS's. 

LEARNING LEVEL II 
$16.95 + $1.20 p&p 

Written by Daniel Lien, the author of the TRS-80 
Level I Handbook, this book teaches you, step-by-step, 
how to get the most from your Level II machine. 
Invaluable supplement to either the TRS-80 Level II 
Manual or the System-80 Manuals. 



AN programs designed to run on both the TRS-80 or the SYSTEM 80 without modification. Most programs include sound 



TRIAD VOL 1 -L2/16K 

Cassette $10.95 Disk $15.95 

+ 60c p&p 

Three separate games which test your powers of memory and 

concentration. The programs combine graphic displays and 

sound: 

SIMON-SEZ: Just like the electronic music puzzles on sale for 
more than $20. Numbers are flashed on the screen and sounded 
in a sequence determined by the computer. Your task is to 
reproduce the sequence, correctly. 

LINE?: Rather like a super, complicated version of noughts 
and crosses. You may play against another player or against 
the computer itself. But beware, the computer cheats! 
SUPER CONCENTRATION: Just like the card game but with 
more options. You must find the hidden pairs. You may play 
against other people, play against the computer, play on your 
own, or even let the '80 play on its own. 

TRSADV0L2-L2/16K 

Cassette $10.95 Disk $15.95 

+ 60c p&p 

Remember those "NUMERO" puzzles in which you had a 
matrix of numbers (or letters) with one blank space and you 
had to shuffle the numbers around one at a time until you 
had made a particular pattern? Well, SHUFFLEBOARD, the 
first program in this triad, is just this, except that the computer 
counts the number of moves you take to match the pattern 
it has generated — so it is not possible to cheat. 
MIMIC is just like SHUFFLEBOARD except that you only 
see the computer's pattern for a brief span at the beginning of 
the game, then you must remember it! 

In MATCH EM, you have to manoeuvre 20 pegs from the 
centre of the screen to their respective holes in the top or 
bottom rows. Your score is determined by the time taken to 
select a peg, the route taken from the centre of the screen to 
the hole and your ability to direct the peg into the hole with- 
out hitting any other peg or the boundary. 

VISURAMA L2/16K 

Cassette $10.95 Disk $15.95 

+ 60c p&p 

Two programs which give fascinating, ever-changing patterns 

on the screen. 

LIFE is the fastest implementation of the Game of Life you 
will see on your '80. Machine language routines create up to 
1200 new generations per minute for small patterns or up to 
100 per minute for the full 128 x 48 screen matrix. Features 
full horizontal and vertical wraparound. 

EPICYCLES will fascinate you for hours. The ever-changing 
ever-moving patterns give a 3D effect and were inspired by the 
ancient Greek theories of Ptolemy and his model of the Solar 
system. 

EDUCATION AND FUN - L1/4K, L2/16K 
Cassette $10.95 Disk $15.95 
+ 60c p&p 
Written by a primary school teacher to make learning enjoy- 
able for his pupils, there are five programs in both Level I and 
Level U to suit all systems: 

BUG-A-LUG: a mathematics game, in which you must get the 
sum correct before you can move. 

AUSTRALIAN GEOGRAPHY: learn about Australian States 
and towns, etc. 

SUBTRACTION GAME: build a tower with correct answers. 
HOW GOOD IS YOUR MATHS? Select the function (+, -, 
-^ or X) and degree of difficulty. 

HANGMAN: That well known word game now on your 
computer. 
Recommended for children from 6 to 9 years. 



COSMIC FIGHTER & SPACE JUNK - L2/16K 

Cassette $1 0.95 Disk $1 5.95 

+ 60c p&p 

Both programs have sound to complement their excellent 
graphics. In COSMIC FIGHTER, you must defend the earth 
against seven different types of alien aircraft. It is unlikely that 
you will be successful but you will have a lot of fun trying! 
You mission in SPACE JUNK is to clean up all the debris left 
floating around in space by those other space games. It is not 
as simple as it sounds and space junk can be quite dangerous 
unless you are very careful. 

SPACE DRIVE L2/4K&16K 

Cassette $8.95 Disk $13.95 

+ 60c p&p 

Try to manoeuvre your space ship through the meteor storms 
then land it carefully at the space port without running out of 
fuel or crashing. Complete with realistic graphics. 

STARFIRE AND NOVA INVASION L2/16K 
Cassette $1 0.95 Disk $1 5.95 
+ 60c p&p 
Both programs include sound to improve their realism. 
STARFIRE seats you in the cockpit of an X-wing fighter as 
you engage in battle with the deadly Darth Vader's Tie-fighters. 
Beware of the evil one himself and may the Force be with you. 
In NOVA INVASION, you must protect your home planet of 
Hiberna from the invading NOVADIANS. You have two fixed 
guns at each side of the screen and a moveable one at the 
bottom. Apart from shooting down as many invaders as 
possible, you must protect your precious hoard of Vitaminium 
or perish! 

AIR ATTACK AND NAG RACE - L2/16K 

Cassette $10.95 Disk $15.95 

+ 60c p&p 

An unlikely combination of programs but they share the same 

author who has a keen sense of humour. 

AIR ATTACK includes sound and realistic graphics. The air- 
craft even have rotating propellors! But they also drop bombs 
on you, so it's kill or be killed! 

NAG RACE lets you pander to your gambling instinct without 
actually losing real money. Up to five punters can join in the 
fun. Each race results in a photo-finish whilst there is a visible 
race commentary at the bottom of the screen throughout the 
race. Happy punting! 

FOUR LETTER MASTERMIND L2/16K 

Cassette $8.95 Disk $13.95 

+ 60c p&p 

There are 550 four-letter words from which the computer can 
make its choice. You have 12 chances to enter the correct 
word. After each try, the computer informs you of the number 
of correct letters and those in the correct position. You can 
peek at the list of possible words but it will cost you points. 
Makes learning to spell fun. 

MUSIC IV -L2/16K 

Cassette $8.95 Disk $13.95 

+ 60c p&p 

Music IV is a music compiler for your '80. It allows you to 
compose or reproduce music with your computer that will 
surprise you with its range and quality. You have control over 
duration (full beat to 1/16 beat) with modifications to extend 
the duration by half or one third for triplets. Both sharps and 
flats are catered for as are rests. Notes on whole sections may 
be repeated. The program comes with sample data for a well- 
known tune to illustrate how it is done. 



***SAVE 00$'s***SAVE 00$'s***SAVE 00$'s***MICRO-80 EXPANSION INTERFACE *** 

MICRO-80's expansion interface utilises the proven LNW Research Expansion board. It is supplied fully built up and tested in an 
attractive cabinet with a self contained power supply, ready to plug in and go. The expansion interface carries MICRO-80's full, no 
hassle, 90-day warranty. 
Features include:- s Sockets for up to 32K of memory expansion m Disk controller for up to 4 disk drives © Parallel printer port 

m Serial RS232C/20mA I/O port ® Second cassette (optional) 
The expansion interface connects directly to your TRS-80 L2/16K keyboard or, via SYSPAND-80 to your SYSTEM-80VIDEO GENIE 
Prices: HD-010-A Expansion Interfaces with K : $499.00 HD-010-B Expansion Interfaces with 32K : $549.00 HD-011 Data 
separator fitted (recommended) : add $29.00 HD-012 Dual cassette Interfaces fitted : add $19.00 

The MICRO-80 Expansion Interface is also available in kit form. 
Prices: HD-013 Kit consisting of LNW Research PC board and manual, ALL components including cabinet & power supply : $375.00 
HD-01 1 Data separator for above $25.00 HD-013 Dual cassette Interface kit : $15.00 




A choice of upper and lower case display is easier to read , 
gives greater versatility. 

The Micro-80 lower case modification gives you this facility, 
plus the symbols for the 4 playing-card suits for $49.00 + 
$2.00 p. & p. 

The Micro-80 modification features true below-the-line 
descenders and a block cursor. 

Each kit comes with comprehensive fitting instructions 
and two universal lower-case drive routines on cassette to 
enable you to display lower case in BASIC programs. 

The driver routines are self-relocating, self-protecting and 
will co-reside with other machine language programs such 
as Keyboard-debounce, serial interface driver programs etc. 



plus $2.00 p & p 

Both programs give your TRS-80 m Model I or System 80'" 
an optional typewriter capability, i.e.. shift for upper case 

The second programme also includes Keyboard-debounce 
and a flashing cursor. 

You fit it. Or we can. 

Fitting the modification requires soldering inside the 
computer. This should only be carried out by an experienced 
hobbyist or technician. 

If you are at all dubious, a fitting service is available in all 
capital cities for only $20.00. 

A list of installers is included with each kit 
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The Micro-80 disk drive upgrade fortheTRS-8(T Model III 
ontains the following high quality components; 

or 2 MPI 40-track single head disk drives, 1 VR Data 

ble-density disk controller board and 1 dual drive power 

y plus all the necessary mounting hardware, cables and 

prehensive fitting instructions, which can be carried out 

a minimum of fuss by any average computer owner. 

itting service is available for $25.00 in most capital cities. 



ONLY $2049 INC. S.T. 



Daisy Wheel Typewriter/Printer 



MICRO-80 has converted the new OLIVETTI ET-121 DAISY WHEEL typewriter 
to work with the TRS-80 and SYSTEM 80 or any other microcomputer 
with a Centronics parallel port (RS 232 serial interface available 
shortly). The ET-121 typewriter is renowned for its high quality, 
fast speed (17 c.p.s.), quietness and reliability. MICRO-80 i< 
renowned for its knowledge of the TRS-80/SYSTEM 80 and its sensible 
pricing policy. Together, we have produced a dual-purpose machine:- 
an attractive, modern, correcting typewriter which doubles as < 
correspondence quality Daisy-wheel printer when used with yout 
micro-computer. 

How good is it? - This part of our advertisement was typeset usinc 
an ET-121 driven by a TRS-80. Write and ask for full details. 
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MlCHO-8§ has equipped the TRS-80 with two high reliability dual-head 80 track mini- 
floppy disk drives made by MPI, one of America's leading mini-disk drive manufacturers. 

This turns the mild-mannered Model 3 into a powerhouse able to handle the most dif- 
ficult business programs. The TRS-80 is one of the best-supported microcomputers in the 
world. MICRO-80 has been supporting the TRS-80 in Australia for 18 months and is one 
of Australia's leading dealers in MPI disk drives. 



2M MEGABYTES P 



'5300 incl. Sales Tax 



If you need even more file space you can add MICRO-80's external dual-drive cabinet 
enclosing two more dual-head 80 track drives for an additional $ 1500. 



COMPUTER PI 



MODEL 34© 

2 40 TRACK SINGLE HEAD DRIVES GIVING 

350K FORMATTED STORAGE, 48K RAM 

MODEL 340 + 

2 40 TRACK DUAL-HEAD DRIVES GIVING 

700K FORMATTED STORAGE, 48K RAM 

MODEL 380 

2 80 TRACK SINGLE HEAD DRIVES GIVING 

700K FORMATTED STORAGE, 48K RAM 

MODEL 380 + 

2 80 TRACK DUAL-HEAD DRIVES GIVING 

1 .4 MEGABYTE FORMATTED STORAGE, 48K RAM 



$ 2990 INCL. SALES TAX 
$ 3350 INCL. SALES TAX 
$ 3350 INCL. SALES TAX 
$ 3800 INCL SALES TAX 



35©K SYSTEM 

MODEL 340, EPSON MX-80 PRINTER 

NEWDOS 80 DISK OPERATING SYSTEM 

7§©K SYSTEM (40 Track) 

MODEL 340 + , EPSON MX-80 PRINTER 

NEWDOS 80 DISK OPERATING SYSTEM 

7§§K SYSTEM (80 Track) 
MODEL 380, EPSON MX-80 PRINTER 
NEWDOS 80 DISK OPERATING SYSTEM 

1.4 MEGABYTE SYSTEM 

MODEL 380 + , EPSON MX-80 PRINTER 

NEWDOS 80 OPERATING SYSTEM 

2M MEGABYTE SYSTEM 

MODEL 380 + , DUAL EXTERNAL DRIVES, 

MX-80 PRINTER, NEWDOS 80 OPERATING SYSTEM 



$ 4070 INCL SALES TAX 



; 4429 



s 4429 



s 4880 



$ 6380 



INCL SALES TAX 



INCL. SALES TAX 



INCL. SALES TAX 



INCL SALES TAX 
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All Exatron Stringy Floppies sold by MICRO-80 include the special chained version of 
HOUSEHOLD ACCOUNTS, developed by Charlie Bartlett. When used on the ESF, this pro- 
gram is powerful enough to perform many of the accounting functions in a small 
business. Remember, the ESF comes complete with a comprehensive manual, a 2 way 
bus-extender cable, its own power supply and 10 wafers of mixed length. One wafer 
contains the Data Input/Output program and another the HOUSEHOLD ACCOUNTS 
program, 

CAN 5 T MAKE UP YOtJR MIND ABOUT THE ESF? 
Then send in $5.00 for a copy of the manual. We will refund your $5,00 IN FULL when you 
purchase an ESF. 



* 



All prices subject to change without notice. Prices are FOB, Adelaide- All computers and systems carry MICRO- 

90-day Warranty covering parts and labour. 
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All ©ur software is suitable for either the SYSTEM 80 ©r the TRS-80 



NEW SOFTWARE FROM M5CRO-8Q PRODUCTS 
BUSINESS PROGRAMS 

MICRQMANAGEMENT 

STOCK RECORDING SYSTEM (L2/16K) 

Cassette version $29.95 + $1.00 p&p 

Stringy Floppy version $33.95 + $1.00 p&p 

This system has been in use for 9 months in a number 
of small retail businesses in Adelaide. It is therefore 
thoroughly debugged and has been tailor made to suit 
the requirements of a small business. MICROMANAGE- 
MENT SRC enables you to monitor the current stock 
level and reorder levels of 500 different stock items per 
tape or wafer. It includes the following features:- 

— Add new items to inventory 

— Delete discontinued items from inventory 

— List complete file 

— Search for any stock number 

— Save data to cassette or wafer 

— Load data from cassette or wafer 

— Adjusts stock levels from sales results and receipt 
of goods 

— List all items requiring reordering 

We can thoroughly recommend this program for the 
small business with a L2/16K computer. 



SCOTCH BRAND COMPUTING CASSETTES 
Super-quality personal computing cassettes. 

C-10packof10 $26.00 incl. p&p 

C-30packof10 $28.00 incl. p&p 



UTILITIES 

S-KE Y by Edwin Paay $1 5.95 plus 50c. p&p 

S-KEY is a complete keyboard driver routine for the 
TRS-80 and becomes part of the Level II basic inter- 
preter. With S-KEY loaded the user will have many 
new features not available with the standard machine. 
S-KEY features: 

* S-KEY provides an auto-repeat for all the keys on 
the keyboard. If any key is held down longer than 
about half a second, the key will repeat until it is 
released. 

* Graphic symbols can be typed direct from the key- 
board, this includes all 64 graphic symbols available 
from the TRS-80/SYSTEM 80. 

* S-KEY allows text, BASIC commands and/or 
graphics to be defined to shifted keys. This makes 
programming much easier as whole commands and 
statements can be recalled by typing shift and a 
letter key. 

* Because S-KEY allows graphics to be typed directly 
from the keyboard, animation and fast graphics are 
easily implemented by typing the appropriate 
graphics symbols directly into PRINT statements. 

* S-KEY allows the user to LIST a program with 
PRINT statements containing graphics, properly. 
S-KEY does this by intercepting the LIST routine 
when necessary. 

* S-KEY allows the user to list an updated list of the 
shift key entries to the video display or line printer. 

* S-KEY can be disabled and enabled when required. 
This allows other routines which take control of the 
keyboard to run with S-KEY as well. 

Each cassette has TRS-80, DISK and SYSTEM 80 
versions and comes with comprehensive documentation. 



BM0N by Edwin Paay $19.95 plus 50c. p&p 

THE ULTIMATE HIGH MEMORY BASIC MONITOR 
L2/16-48K 

Our own personnel refuse to write BASIC without first 
loading this amazing machine language utility program 
into high memory! BMON Renumbers; Displays BASIC 
programs on the screen while they are still loading; tells 
you the memory locations of the program just loaded; 
lets you stop a load part-way through; merges two 
programs, with automatic renumbering of the second 
so as to prevent any clashes of line numbers; recovers 
your program even though you did type NEW: makes 
one program invisible while you work on a second 
(saves hours of cassette time!); lists all the variables 
used in the program; makes SYSTEM tapes; lets you 
Edit memory directly ... the list goes on and on. 
Cassette comes with 16K, 32K and 48K versions, ready 
to load. Can anyone afford NOT to have BMON? 



EDUCATIONAL 

RPN CALCULATOR (L2/16K & 32K) 
$14.95$ 50c. p&p 

Give your computer the power of a $650 reverse polish 
notation calculator with 45 functions and selectable 
accuracy of 8 or 16 digits. The main stack and registers 
are continuously displayed whilst the menu is always 
instantly accessible without disturbing any calculations 
or register values. The cassette comes with both the 
16K and 32K versions, the latter giving you the addi- 
tional power of a programmable calculator. Comes 
with a very comprehensive 15 page manual, which 
includes instructions to load and modify the 32K pro- 
grammable version to run in 16K. Whether for business 
or pleasure, this package will prove invaluable, and turn 
you '80 into a very powerful instrument. 



GAMES 

MICROPOLY(L2/16K) $8.95 + 60c p&p 

Now you can play Monopoly on your micro. The old 
favourite board game has moved into the electronic era. 
This computer version displays the board on the screen, 
obeys all the rules and, best of all, the banker does not 
make mistakes with your change! 

CONCENTRATION (L2/16K) $8.95 + 60c p&p 

Another application of supergraphics. There are 28 
"cards" displayed on the screen, face down. Players 
take it in turn to turn them over with the object of 
finding matching pairs. There are 40 different patterns 
which are chosen at random, so the game is full of end- 
less variety. This is of particular value in helping young 
children to learn the art of concentrating and, at the 
same time, to introduce them to the computer. 

METEOR AND TORPEDO ALLEY (L2/16K) 
$10.95 + 60c p&p 

Those who frequent games arcades will recognize these 
two electronic games. In METEOR you must destroy 
the enemy space ships before they see you. In its most 
difficult mode, the odds are a thumping 238 to 1 
against you being successful. In torpedo alley you must 
sink the enemy ships without hitting your own supply 
ship. Both games include sound effects and are remark- 
ably accurate reproductions of the arcade games. 
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AUSTRALIAN SOFTWARE (Cont.) 

GAMES 

SHEEPDOG (L2/16K) $8.95 + 60cp&p 

Ever wondered how a sheepdog manages to drive all 
those awkward sheep into a pen? Well, here is your 
chance to find out just how difficult it is and have a 
lot of fun at the same time. You control the sheepdog, 
the computer controls the sheep! As if that isn't 
enough, look out for the dingoes lurking in the bush! 

UBOAT $8.95 + 60c p&p 

Real time simulation at its best! Comes with working 
sonar-screen and periscope, a full rack of torpedoes, 
plenty of targets, working fuel and battery meters, 
helpful Mothership for high-seas reprovisioning and 
even has emergency radio for that terrible moment 
when the depth charges put your crew at risk. Requires 
Level II/16K. 

SPACE INVADERS WITH SOUND $8.95 + 60c p&p 

Much improved version of this arcade favourite with 
redesigned laser and cannon blasts, high-speed cannon, 
50 roving drone targets, 10 motherships and heaps of 
fun for all. Level II with 4K and 16K versions on this 
cassette. 

GOLF(L2/16K) $8.95 + 60c p&p 

Pit your skills of mini-golf against the computer. Choose 
the level of difficulty, the number of holes and whether 
you want to play straight mini golf or crazy golf. Com- 
plete with hazards, water traps, bunkers and trees. 
Great fun for kids of all ages. 

DQM!NOES(L2/16K) $8.95 + 60c p&p 

Pit your skill at dominoes against the computer, which 
provides a tireless opponent. Another application of 
supergraphics from the stable of Charlie Bartlett. 
Dominoes are shown approximately life size in full 
detail (except for colour!). The monitor screen is a 
window which you can move from one end of the 
string of dominoes to the other. Best of all, you don't 
lose any pieces between games! 

KID'S STUFF (formerly MMM-1) $8.95 + 60c p&p 

Three games on one cassette from that master of TRS- 
80 graphics, Charlie Bartlett. Includes INDY 500, an 
exciting road race that gets faster and faster the longer 
you play, SUBHUNT in which your warship blows up 
unfortunate little submarines all over the place, and 
KNIEVEL (as in motorcycle, ramp and buses). 

OTHER PROGRAMS 

INFINITE BASIC BY RACET (32K/1 DISK) 
$49.95 + 50c. p&p 

Full matrix functions - 30 BASIC commands; 50 more 
STRING functions as BASIC commands. 

GSF/L2/48K $24.95 + 50c. p&p 

18 machine language routines including RACET sorts. 

BUSINESS ADDRESS AND INFORMATION SYSTEM 
(48K/DISK) $24.95 + 50c. p&p 

Allows you to store addresses and information about 
businesses, edit them and print them out. 

H1SPED(L216,32 or 48K) $29.95 

This machine language program allows you to SAVE 
and LOAD programs and data to tape at speeds up to 
2000 band (4 times normal) using a standard cassette 
recorder. A switch must be installed to remove the 
XRX III loading board, if fitted. 



LOWER CASE FOR YOUR TRS-80/SYSTEM 80 
Kit only $49.00 plus $2.00 p&p 

Give your TRS-80 or SYSTEM 80 a lower case display 
with proper descenders and a block cursor (similar to 
the TRS-80 Model III). Also includes symbols for the 
four suits of cards. Includes full fitting instructions, all 
necessary components and a special machine language 
driver program to enable lower case in BASIC. The 
modification is similar to the Tandy model and does 
not work with Electric Pencil without further modifi- 
cations. 

These kits require disassembly of your computer and 
some soldering. They should only be installed by 
someone who has experience in soldering integrated 
circuits, using a low power, properly earthed soldering 
iron. If you do not have the necessary experience/ 
equipment, we will install the modification for you for 
$20 plus freight in both directions. Make sure you 
arrange the installation with us first, before despatch- 
ing your computer, so that we can assure you of a 
rapid turn-around. We are also arranging to have 
installers in each State. See elsewhere in this issue for 
their names and addresses. 

PRICES 
Cat No. 
HD-020 Lower case mod kit for TRS-80 

$49.00 plus $2.00 p&p 
HD-021 Lower case mod kit for SYSTEM-80 

$49.00 plus $2.00 p&p 



EPSON MX-80 PRINTER 

ONLY *$949 Inc. Cable for TRS-80 and p&p 

(♦Printer only - $940 incl. p&p) 

The EPSON MX-80 printer is compact, quiet, has 
features unheard of only 2-3 years ago in a printer at 
any price and, above all, is ultra-reliable. All available 
print modes may be selected under software control. 
Features include: 

— high quality 9x9 dot-matrix character formation 

— 3 character densities 

. 80 characters per line at 10 chars/inch 
.132 characters per line at 16.5 chars/inch 
. 40 characters per line at 5 chars/inch 

— 2 line spacings 

. 6 lines per inch 8 lines per inch 

— 80 characters per second print speed 

— bi-directional printing 

— logical seeking of shortest path for printing 

— lower case with descenders 

— TRS-80 graphics characters built in 

— standard Centronics printer port 

The bi-directional printing coupled with the logical 
seeking of the shortest print path (which means that 
the print head will commence printing the next line 
from the end which requires the least travel, thereby 
minimising unutilised time) gives this printer a much 
higher throughput rate than many other printers 
quoting print speeds of 120 c.p.s. or even higher. 



GREEN SCREEN SIMULATOR 
$9.50 incl. p&p 
The GREEN SCREEN SIMULATOR is made from a 
deep green perspex, cut to fit your monitor. It improves 
contrast and is much more restful to the eyes than the 
normal grey and white image. 

All editorial staff of MICRO-80 are now using GREEN 
SCREEN SIMULATORS on their own monitors. 

Please make sure to specify whether you have an old 
(squarish) or new (rounded) style monitor when order- 
ing. Not available for Dick Smith monitors. 
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***** PUT m/1 4-1 6K 



by S. Barnett ***** 



This is a m/1 program to SET nongraphic characters. You will need either a monitor program 
such as TBUG or BMON (MICRO-80 issues 3, 4 and 5) or an editor/assembler. If using a monitor, 
start editing memory at the address shown at the top of the left hand column and change each 
memory address to the value shown in the next column. E.g. change 7FB8 to , to , 
t0 to to and so on. Note that this program resides in the same area as bmun. 
If you wish to Jse BMON to enter it, then you must either use the 32K or 48K version (assuming 
your computer has sufficient capacity) or you must offset the program to start at 5FB8H (say; 
and append a short block move routine as described in MICRO-80 issue 10 to shift it to its correct 
position when run. Using the Editor/Assembler, you may easily relocate the program for different 
size machines simply by changing the ORG address. Use 4FB8 for 4K, BFB8 for 32K and 
FFB8 for 48K machines. 

Use the editor/assembler or monitor to punch out a SYSTEM tape having the following parameters: 



START 
7FB8 



END 



ENTRY 



NAME 
PUT 



Note, if you have appended a block move routine, the START, END and ENTRY addresses will differ 
from those shown above. 

To load the program from tape type:- 

SYSTEM and press the ENTER/NEWLINE key. Then in response to the next prompt type:- 

PUT and press the ENTER/NEWLINE key. When the program has loaded type / and press the ENTER/ 

NEWLINE key. PUT is now active. 

Althouqh this program was not designed to RUN on a disk system it will do so without any modifi- 
cation Of course, once the program has been loaded, disk users should be aware that the normal 
function of the PUT command will now not be available until the system is reBOOTed. 

To load the program from disk, if you have NEWDOS 80, type:- 

BASIC press ENTER/NEWLINE 
CMD"PUT" press ENTER/NEWLINE 

For any other DOS:- 

From DOS type LOAD PUT/CMD and press ENTER/NEWLINE 

Type BASIC and press ENTER/NEWLINE 

Type SYSTEM and press ENTER/NEWLINE 

Type /32696 and press ENTER/NEWLINE 

*D0 NOT* attempt to start the program from DOS or your system will hang. 

You may NOW PUT non graphics on the screen in a similar fashion to the SET command. 
The format of the command can be either of the f oil owing : - 



PUT(X,Y), "stringname" 



or 



PUT(X,Y), variable 



X can be any value between and 63 corresponding to its position across the screen and Y can 
be any value between and 15 corresponding to its position down the screen. 

For example, PUT(20,15) ,"*" will SET an asterisk on the screen 20 columns across and 15 lines 
down; the same thing may be done this way:- 



10 
20 
30 



CLS 
PUT(20,15),A$ 



The normal SN ERROR will be given if the command is not typed in correctly or an FC ERROR will 
be given if you specify values for X or Y that exceed the stated range. 



7FB8 

7FB8 21C67F 
7FBB 228341 
7FBE 3EC3 
7FC0 328241 
7FC3 C3CC06 
7FC6 CF 
7FC"? 78 
7FC8 CD1C2B 
7FCB FE40 
7FCD D24A1E 
7FB0 F5 
7FD1 CF 



00001 ? 

00002 ; 
00003 

00004 START 
00005 
00006 
00007 
00008 
00009 

000 1 

000 1 1 

000 1 2 

000 1 3 

000 1 4 

000 1 5 



BO 



(C) S. BARNETT 
PUT COMMAND TO 



SET NON GRAPHICS 



0R6 

LD 

LD 

LD 

LD 

JP 

RST 

DEFB 

LrHL-l- 

CP 

jp 

PUSH 
RST 



7FB8H 
HL,GO 



; INSTALL 



;A 



<4183H),HL 

A,0C3H 

(4182H) 

6CCH 

08H 

28H 

2B1CH 

64 

NC, 1E4AH 

AF 

08H 



5 PUT 

; COMMAND 

; RETURN TO BASIC 
;SN ERROR IF NOT 



<" 



; EVALUATE X PARAMETER 
5 IS IT GREATER THAN OR 
; EQUAL TO 64, IF YES FC ERROR 
;SAVE X PARAMETER 
;SN ERROR IF NOT ", " 



j luuutstK iy» 


1) 






MICRO-80 


yrno op 


00016 




DEFB 


2CH 


7FD3 CD1C2B 


000 1 7 




CALL 


2B1CH 


7FFSA FF 1 O 


00018 




CP 


16 


yprjcj rjT^/x-jp 


000 1 9 




JP 


NC, 1E4AH 


-rpnti 22FH7F 


00020 




LD 


(TMPS) ,HL 


"Tfrrjcr "Tf"* 


0002 1 
00022 


XXI 


INC 


A 


7FBF 47 


00023 




LD 


B,A 


7FE0 210000 


00024 




LD 


•ML, 00 


7FE3 114000 


00025 




LD 


DE,64 


7FE6 1 9 


00026 


LOOP 1 


ADD 


HL,DE 


7FF7 1 OF1 


00027 




DJNZ 


LOOP 1 


7FF9 ED^2 


Of"""! 2 8 
00029 


„ 


SBC 


HL,DE 


7FEB Fl 


00030 




POP 


AF 


7FEC 163C 


0003 1 




LD 


D 5 3CH 


7FEE 5F 


00032 




LD 


E,A 


7pcrp jcp 


00033 
00034 


K 


ADD 


HL,DE 


7FF0 222040 


00035 
00036 


„ 


LD 


(4020H) ,HL 


ypp^y 2AFD7F 


00037 




LD 


HL, <TMPS) 


7FF6 CF 


00038 




RST 


08H 


7FF7 29 


00039 




DEFB 


29H 


7FFS CF 


00040 




RST 


08H 


■yppcp 2* -1 . 


0004 1 




DEFB 


2CH 


7FFA C3AD20 


00042 




JP 


20ADH 


7FFD 0000 


00043 


TMPS 


DEFW 


OH 


"/pop 


00044 




END 


7FB8H 


00000 TOTAL 


ERRORS 
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; EVALUATE Y PARAMETER 

;FC ERROR IF Y VALUE IS 

; GREATER OR EQUAL TO 16 

;SAVE COMMAND POINTER 

? MAKE SURE Y PARAMETER I! 

AT LEAST 1 

?LOAD IN B FOR LOOP 

= CLEAR HL 

;BE=LENGTH OF FULL LINE 

;LOOP DOWN SCREEN 

; ADJUST FOR ADDITIONAL 

; COUNT AT XXI 

; RESTORE X VALUE 

? DE=POS I T I ON ACROSS 

5 SCREEN * 

;ADD DISPLACEMENT DOWN 

; SCREEN* 

;SAVE IN CURSOR POINTER 

5 ADDRESS. 

; RESTORE COMMAND POINTER 

;SN ERROR IF NOT ") " 

;SN ERROR IF NOT ", " 

;JUMP TO PRINT ROUTINE 
; WORKSPACE 



***** 



SHORTEN 32K m/1 DISK 



by Spencer George ***** 



This is a machine language program for a 32K disk system, it may be modified for a 16K or 4fiK 
?^ 1 SE00V 1 B t ES 1 . ng ° RG ^^^^ t0 7400H f ° r 16K FE00H forV. ThT^Jn listed" oads 

The P p7o 9 q7a m m S is R ™ S rl^ S ^ i^V" 9 unnec + essa ^ blanks > linefeeds and REMark statements. 

dpm Program is fairly simple-minded in its operation, i.e. no checks are made to see if thP 
REM statement being removed is a GOTO or GOSUB branch line therefore vou Sm.ilri I a i way J JZ 
sure that you SAVE a copy of the program to disk fi>st, which is no only good sense but "??? 

til h rl n f . t r ma r k°e SS RF C M h . e f IB 1*? V- "? "* REM ' S ^ * G ° T ° or MSUB ^nation. Bet e 
still, don t make REM's the destination for a GOTO or GOSUB in the first Dlace it's not nnnH 

programing practise. Having thus cautioned you against what it doesn't dc what t does 9 So 
is very useful and very quick. To use SHORTEN follow these very simple steps:- 



1. Go into BASIC and LOAD"program/BAS' 



2. 
3. 
4. 
5. 
6. 



Save your program back to disk SAVE"oldname/BAS" 

Jump back to DOS by pressing reset or type ... CMD"S" 

Start the m/1 program by typing SHORTEN or SHORTEN/CMD 

Jump back to the altered program by typing. .. .BASIC * so that the pointers are not reset. 

Save the program back to disk... SAVE"newname/BAS" 



hi rSn'hf S T* ty at thG baCk ° f the Class just ^P ed ?MEM and g ot the same answer back as 
tL lo ° re th f Pr ouZ m W c aS ? H0RTENed > b "t look!! All the REM's and blanks have gone - why 
dSes not rllT/tll Z"l Slm Plj";*« ^^ t0 BASIC from D0S with th * command BASIC* which 
Tt t 1 i th f e P° ln T S S °- that 0ur pr °9 ram wi11 still be there and the pointers are still 
set to the value of the old version. To see how much memory you have saved try this. .... 

Type ?MEM or PRINT MEM and make a note of the number. 

3 P Ibove ed y ° U S3Ved thG Pr ° gram t0 disk as SAVE"newname/BAS" then return to DOS as in STEP 

Return to BASIC, this time resetting the pointers, by typing BASIC. 
Type LOAD"newname/BAS" 

SoXs'feenTavT 7 "'" "* C °*" re U to the Value ° btal ' ne « in ste " 1 t0 see h °« «=» 

When you are satisfied that your proqram is still funrtioninn rnrrprtiw i * ™ m rDonn 

then return to DOS and type kIll oLL/BaI ?hen Re}!« nZLe^olL^e/BAS "' ERR ° R ~ SSi,Ses - 



1. 

2. 

3. 
4. 
5. 
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ENTERING THE PROGRAM 

You may enter the program using the M - command in DEBUG or by using a disk-based editor/assember. 
If you use DEBUG you will need to use the TRSDOS DUMP command to transfer the program from memory 
to disk with the following parameter: 





FILESPEC 


START 


END 


ENTRY 




SHORTEN/CMD 


BE00 


BEC8 


BE00 


BEOO 


00001 




ORG 


OBEOOH 




BEOO D9 


00002 AAN 


EXX 






BEOl 0605 


00003 




LD 


B,AAD 




BE03 D9 


00004 AAO 


EXX 






BE04 08 


00005 




EX 


AF ? AF* 




BE05 3E00 


00006 




LD 


A, AAA 




BE07 08 


00007 




EX 


AF„AF* 




BE08 DD21A440 


00008 




LD 


IX,AAM 




BEOC DD5E00 


00009 




LD 


E, (IX+OOH) 




BEOF DD5601 


00010 




LD 


D, (IX+01H) 




BE 12 DD6E00 


00011 




LD 


L, (IX+OOH) 




BE 15 DD6601 


00012 




LD 


H, (IX+01H) 




BE 18 010400 


00013 




LD 


BC,AAC 




BE IB EDBO 


00014 




LDIR 






BE1D 08 


00015 AAP 


EX 


AF ? AF' 




BE1E 3C 


00016 




INC 


A 




BE IF 08 


00017 




EX 


AF,AF' 




BE20 7E 


00018 




LD 


A, (HL> 




BE21 FEOO 


00019 




CP 


AAA 




BE23 28 ID 


00020 




JR 


Z,AAR 




BE25 FE22 


00021 




CP 


AAH 




BE27 283A 


00022 




JR 


Z,AAU 




BE29 FE93 


00023 




CP 


AAK 




BE2B 2849 


00024 




JR 


Z,AAX 




BE2D FE27 


00025 




CP 


AAI 




BE2F CA76BE 


00026 




JP 


Z,AAX 




BE32 FEOA 


00027 




CP 


AAF 




BE34 2876 


00028 




JR 


Z,ABE 




BE36 FE20 


00029 




CP 


AA6 




BE38 2826 


00030 




JR 


Z,AAT 




BE3A FE3A 


00031 




CP 


AAJ 




BE3C 2872 


00032 




JR 


Z , ABF 




BE3E EDAO 


00033 


AAQ 


LDI 






BE40 18DB 


00034 




JR 


AAP 




BE42 EDAO 


00035 


AAR 


LDI 






BE44 EDAO 


00036 




LDI 






BE46 7E 


00037 




LD 


A, (HL> 




BE47 FEOO 


00038 




CP 


AAA 




BE49 280B 


00039 




JR 


Z,AAS 




BE4B 010300 


00040 




LD 


BC,AAB 




BE4E EDBO 


00041 




LDIR 






BE50 08 


00042 




EX 


AF, AF* 




BE51 3E00 


00043 




LD 


A, AAA 




BE53 08 


00044 




EX 


AF,AF* 




BE54 18C7 


00045 




JR 


AAP 




BE56 EDAO 


00046 


AAS 


LDI 






BESS CDF81A 


00047 




CALL 


AAL 




BE5B D9 


00048 




EXX 






BE5C 10A5 


00049 




DJNZ 


AAO 




BE5E D9 


00050 




EXX 






BE5F C9 


00051 




RET 






BE60 23 


00052 


AAT 


INC 


HL 




BE61 18BA 


00053 




JR 


AAP 




BE63 EDAO 


00054 


AAU 


LDI 






BE65 7E 


00055 


AAV 


LD 


A, <HL) 




BE66 FEOO 


00056 




CP 


AAA 




BE68 28D8 


00057 




JR 


Z,AAR 




BE6A FE22 


00058 




CP 


AAH 




BE6C 2804 


00059 




JR 


Z,AAW 




BE6E EDAO 


00060 




LDI 






BE70 18F3 


00061 




JR 


AAV 




BE72 EDAO 


00062 


AAW 


LDI 






BE74 18A7 


00063 




JR 


AAP 




BE76 08 


00064 


AAX 


EX 


AF,AF* 




BE77 FE07 


00065 




CP 


AAE 




BE79 F28FBE 


00066 




JP 


P,ABB 




BE7C 08 


00067 




EX 


AF-AF* 





?3 (OCTOBER 198 


1) 




MICRO-80 


BE7D IB 


00068 


DEC 


DE 


BE7E 1A 


00069 


LD 


A, <DE) 


BE7F FE3A 


00070 


CP 


AAJ 


BE81 2001 


00071 


JR 


NZ,AAY 


BE83 1 B 


00072 


DEC 


DE 


BE84 IB 


00073 AAY 


DEC 


DE 


BE85 IB 


00074 


DEC 


DE 


BE86 IB 


00075 AAZ 


DEC 


DE 


BE87 23 


00076 ABA 


INC 


HL 


BESS 7E 


00077 


LD 


A, (HL) 


BE89 FEOO 


00078 


CP 


AAA 


BE8B 2805 


00079 


JR 


Z S ABC 


BE8D 18F8 


00080 


JR 


ABA 


BE8F 08 


00081 ABB 


EX 


AF,AF' 


BE90 18F4 


00082 


JR 


AAZ 


BE92 08 


00083 ABC 


EX 


AF,AF> 


BE93 FE07 


00084 


CP 


AAE 


BE95 F2A9BE 


00085 


JP 


P,ABD 


BE98 08 


00086 


EX 


AF„AF* 


BE99 23 


00087 


INC 


HL 


BE9A EDAO 


00088 


LDI 




BE9C 7E 


00089 


LD 


A, (HL) 


BE9D FEOO 


00090 


CP 


AAA 


BE9F 28B5 


00091 


JR 


Z,AAS 


BEA1 010300 


00092 


LD 


BC,AAB 


BEA4 EDBO 


00093 


LDIR 




BEA6 C31DBE 


00094 


JP 


AAP 


BEA9 08 


00095 ABD 


EX 


AF,AF' 


BEAA 1896 


00096 


JR 


AAR 


BEAC 23 


00097 ABE 


INC 


HL 


BEAD C31DBE 


00098 


JP 


AAP 


BEBO 23 


00099 ABF 


INC 


HL 


BEB1 7E 


00100 


LD 


A, (HL) 


BEB2 FEOO 


00101 


CP 


AAA 


BEB4 288C 


00102 


JR 


Z,AAR 


BEB6 2B 


00103 


DEC 


HL 


BEB7 1885 


00104 


JR 


AAQ 


BEB9 08 


00105 


EX 


AF,AF> 


BEBA FE07 


00106 


CP 


AAE 


BEBC F28FBE 


00107 


JP 


P„ABB 


BEBF 08 


00108 


EX 


AF,AF' 


BECO IB 


00109 


DEC 


DE 


BEC1 IB 


00110 


DEC 


DE 


BEC2 IB 


00111 


DEC 


DE 


BEC3 IB 


00112 


DEC 


DE 


BEC4 18C0 


00113 


JR 


AAZ 


0000 


00114 AAA 


EQU 


OOOOH 


0003 


00115 AAB 


EQU 


0003H 


0004 


00116 AAC 


EQU 


0004H 


0005 


00117 AAD 


EQU 


0005H 


0007 


00118 AAE 


EQU 


0007H 


OOOA 


00119 AAF 


EQU 


OOOAH 


0020 


00120 AAB 


EQU 


0020H 


0022 


00121 AAH 


EQU 


0022H 


0027 


00122 AAI 


EQU 


0027H 


003A 


00123 AAJ 


EQU 


003AH 


0093 


00124 AAK 


EQU 


0093H 


1AF8 


00125 AAL 


EQU 


1AF8H 


40A4 


00126 A AM 


EQU 


40A4H 


BEOO 


00 1 27 


END 


AAN 


00000 TOTAL 


ERRORS 
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***** POKER L2/16K 



by S. Franzon ***** 



tn rpt k 9ame s * arts u flve cards are displayed on the screen face down, the program asks you 
tlJ Lt y pressin 9 ^S.. B " .Jf ey - ° ne Credit is sub tracted from your total credit of 10 each 
win Jho . you P res , s B • when yo" have bet the desired amount press "D" to draw, the cards 

numLr th.t , °l er - Y °u Sh0U J d n0W decide which cards t0 kee P- To kee P a card, type the 
canrPl HFi n ^JT^ ab °ve each card, the word HELD will appear over the respective card. To 
nvll 5 Enn S Y,' . When / ou have HELD the card s that you wish to keep press »D" again 
?oair win lr 0t w -5 J be - re P 1aced wi th another one and displayed on the screen. Program 
ru?P^ fnV P nJcD n rf e What l f ar, ything you have won. Winning hands are based on the normal 
ruies tor POKER. The game continues until you run out of credits. 
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BETS = 1 

PAYOUTS 

TUIQ PAIR = 2 FIJI L HOUSE 

3 / KIND = 3 4 / KIND 

S T R A I (3 H T = 5 S T R / F I L J S H 

FLUSH = 7 RYL/FLUS! I 

HE! D HELD 

IBBpMipipiflBMIilimilllMllillllil! 



''II! 




NINE 



40 
100 
4. 00 



I IS III II II B II III g 111 

II! Ill 111 ill 111 III SB 111 111 III 

611 111 II III HI III 111 III III III 

;." :■: ::! '•! :;: ;il !i' hi ;;: n 
n m in in m in til in in in 

P I II il I !S 11! 

II! Ill III IB III HI III IH III ill 

i! !!! S! !!! !!! 1 II II II !!! 

Ill 15 ill til III ill ill ill 111 IS 

| l|!|! !|i!p IS '! I 1 I' I 
m m ¥ li' ill m" m' «i 'iii ■:$ 
hi iii iii iii iii in in in hi in 

"i; i:! ::i ::: n: :!' n: !:' ,■! :•: 

I III 111 I il I! Ill II b I 
HI 111 III ill III Hi 111 III III 111 

iii is in b i ; a a: is i si j 

h III III 1" '!" M I'l li IB IIIJ 
rtA'RA ll" ! "I Ilk JUit' '||1N« h!> i i( 



;|. 5 TO HOLD CARDS 

C TO CANCEL HE!.. D CARD 
D TO DRAW 

HELD HELD 



in fa 



in,,.', 
piaijifiii 



IMHiq 

::apip.,, 
BiimiHr 

'US' 1 

p 

SEVEN 



,l«l illl,, 

4lSi'%»iB a 



SEVEN 



CREDITS 



PA V 


3U 


rs 












TWO PAIR = 2 




FULL HOUSE - 


= 1 


PRESS 








3 / KIND = 3 




4 / KIND 


= 40 


•i 


5 TO HO 


_.D 


CAP 


STRAIGHT = 5 




RTR/FI I IRH 


- 1 OO 


C TC 


1 CANCEL 


HE 


LD 


FLUSH » 7' 




RYL/ FLUSH ■ 


-• 400 


D Tl 


) DRAW 






HELD 




HELD 


y. 




, 




5 



CARHS 



M I NE 



-..'■ 
iilpiiiiiii 



.■'■•.■ ■■ 



mine: 



iiBniniL 

NINE 



i '■ . -i 

i/T 1 



ffl H 



RHMil 'I 

iiBiiSiiiiT lisiiiis 



M I NE 



iTNn 



IliUl 

.. i«i::o!i! 
. ,ii ii!n;!i, 



l|i!lliiill!l!!illl!!l!|li|!ilil II 

•mnrwr r 



"WD! 



NO 



iiiiii'lih"iii 

HI|!!|lJHj;!i|lll 

m"' lil'" in 
iihijiii hi iimiiji 

l,K,l|iiill,l,Mli|iili 



KING 



It |l!f !!!!« 

I I 

in «•' '.; .."""fli 

is "iffiliT"'' 

in mfliHiiiiSi 

I 3rjj|ii. 



UBMIUUOIWligMHliUBiDnti!!!! 



The program structure and variables are explained below. 



100-130 Initialization. 

140-210 Screen set up-printing payouts and drawing cards. 

220-350 Randomly choosing cards, and check that each card isn't used twice. 

360-430 INKEY$ to bet and to deal cards. 

Subs 450, 460, 470, 480, 490 are where the starting points for the graphics of each card are 

kept. 
500-640 INKEY$ to hold cards and to redeal the cards. 
650-720 Replace the cards not held. 
730-780 Put the number values of each card (i.e. 1 for Ace, 2 for two...) into increasing 

order for checking wins. 
790-840 Check for winning branches to subroutines 
850 Check for 4/kind 
940 Check for 3/kind then full house. 
940 Check for pairs. 

1010 Check for flush then GOSUB 1050 to check for royal or straight flush. 
1050 Check for straight. 

After branching to each subroutine it checks if there was a win and it then will branch 

away if it is so. 
1080-1180 Prints out any winnings. 
1190-1250 INKEY$ for double up or collect winnings. 
1260-1300 Print out double payments and draws card. 
1310-1350 INKEY$ for choosing big or small. 

1360-1480 Checks for win or lose in double up and draws graphics on cards. 
1490 Checks if you have any credits left. 
1520-1540 Used when no win occurs. 
Sub 1550- 1610 Draws outline of cards. 

Sub 1620-1640 Draws backing on cards and clears away backing. 
Sub 1650-1710 Draws suits on cards. 

Sub 1720-1890 Four different subs for setting graphics of each suit. 
Sub 1900-1950 Writes on the value of each card (i.e. Ace). 
Sub 1960-2010 Instructions. 
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The subroutines between 450-490 are used must commonly as they are called every time a change 
takes place to a card. The most important variables used are - 

A$(l-13) Written value of each card i.e. A$(1)="ACE". A$(2)="two". 
A(0-4) Hold the value for each of the card Nos. (i.e. 1 to 13) 

N.B. A(l) is card one, A(2) card two, etc. 
D(0-4) Holds the suit value (i.e. 1 to 4) 
B(0-4) Holds the value of A(0-4)+B(0-4)x20 (i.e. B(0)=A(0)+B(0)x20) . This means every one 

of the 52 cards in the deck has a different B(0-4) value. Each value is checked against 

each other so no other card is the same. 
C(0-4) Holds the B(0-4) value when that card is being replaced (i.e. B(0-4) will get a new 

value and the old value is kept in C(0-4) and is checked against the new value so 

the same card can't be drawn after it was discarded. 
P(0-7) Hold the values of the payouts. 
VCO-4) Gets a value of one when it is held so the computer can tell which cards have been 

held. 
C holds the credit value 
M holds the bet value for each hand 
E Is the bet (M) x payout when a win takes place. It is equal to the amount won (i.e. 

bet 2, won 2 pair =2x2=4) 
V Holds the value of the winnings (i.e. gets a different value for each different type 

of win) 
F Equals 165 when GOSUB 1620 to draw backing on card and equals 128 when used to clear 

backing. 
A,T,B,Y,Z,H are starting points for the outline of the card, the backing of the card and for 

drawing the graphics of the suit. 

If you wish to start with more credits, change C (credits) in Line 40. 

If you wish the payouts to be higher, change P(0-7) (payouts) in Line 120. 



40 RANDOM: C=10sDIMA*( 13) 

50 CLS;PRINT:i)405 ? CHR*<23> : "P K E R "5 

60 PRINT3512, "DO YOU WANT INSTRUCTIONS" <Y/N>" ; 

70 A$= I NKEY* ; I F A*= " " G0T070 

SO I F A$= " Y " GOSUB 1960s SOTO 1 00 

90 I F A*< > " N " S0T070 

100 F0RQ=1T013:READA*(Q) s NEXTQ 

110 D AT A " ACE " , " T WO " , " THREE " , " FOUR " , " F I VE " , " S I X " , " SEVEN " , " E I GHT " „ 

"NINE", "TEN" , "JACK", "QUEEN", "KING" 

120 P(0)=2sP<l)=3;P<2)=5sP<3)=7;P(4)=10sP<5)=40sP(6)=100:P(7)=40 



130 F0RQ=0T04: A (Q) =0s D (Q) =0: B (Q) =0: V <Q) =0: C (Q) =0s NEXTQs Z=0: F=0 

140 '***SCREEN SET UP*** 

1 50 CLS : PR I NT30 , " BETS = " ; M 5 : PR I NT343 , " CRED ITS = " ; C s s PR I NT373 , " 

PAYOUTS"; 

160 PR I NTS 128," TWO PAIR =" s P (O) s s PRINTS* 192, "3 / KIND ="sP<l>ssPR 

I 1MT3256 3 " STR A I GHT = " ; P ( 2 ) ; 5 PR I NT3320 , " FLUSH = " s P ( 3 ) 5 ' 

170 PR I NTS 144, "FULL HOUSE =" ; P (4) 5 SPRINT320S, "4 /KIND ="?P<5) 

s ; PRINT3272, "STR /FLUSH =" 5 P (6) s : PRINT3336, "RYL /FLUSH =" 5 P (7) s 

180 I FZ=1 RETURN 

190 F0RR=1T05:F=165 

200 0NRG0SUB450 , 460 , 470 , 480 , 490 ; GOSUB 1 560 

210 NEXTR 

220 '***CH00SING CARDS*** 

230 S=lsF0RQ=0T04 

240 A<Q)=RND(13) 

250 D(Q)=RND(4) 

260 B<Q)=A<Q)+D(Q)*20 

270 Y=0 

280 IFB<Q)=C(Y)G0T0240 

290 IFY=QTHENY=Y+1: IFY=5G0T0320 ELSE280 

300 IFB(Q)=B(Y)G0T0240 

310 Y=Y+ls IFY=5THENG0T0320ELSE280 

320 IFS=0G0T0350 

330 IFS=1THENNEXTQ 

340 G0T0370 

350 G0T0680 

360 '***PLACING BETS*** 

370 PR I NTS 1 63 , " PRESS " s 

380 PRINT3233, "B TO PLACE BETS" 3 

390 PRINT3297, "D TO DRAW": 
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400 A*= " " i A*= I NKEY* : I FA*= " " 60T0400 

410 IFA*="B"ANDC>=1THENC=C-1:M=M+1:PRINT37,M; sPRINT358,C; s G0T040 

OELSE I FC< =0 AND A*= " B " THENPR I NTS>36 1 , " YOU CAN * T BET AIMY MORE . " ; s PR I N 

T3425, "YOU'LL HAVE TO DRAW" ; : 60T0400 

420 IFA*= ,, D"ANDM=0THENPRINT;33Ai, "YOU MUST PLACE A BET" ; s F0RQ=1T0 

1000; NEXT; PRINT3361 , CHR* (30) ELSEIFA*="D"60T01650 

430 60T0400 

440 '***STARTINS POINTS FOR DRAWIN6 CARDS*** 

450 A=451 : T=514s B=525: Y=963; Z=515s H=583s RETURN 

460 A=463 : T=526 : B=537 : Y=975 : Z=527 ; H=595 ; RETURN 

470 A=475: T=538: B=549s Y=987: Z=539: H=607: RETURN 

480 A=487 : T=550 : B=56 1 : Y=999 : Z=55 1 : H=6 1 9 s RETURN 

490 A=499; T=562s B=573s Y=101 1 : Z=563: H=631 : RETURN 

500 '***H0LDIN6 CARDS*** 

510 PR I NT3233 , CHR* ( 30 ) ; : PR I NT3297 , CHR* ( 30 ) ; s PR I NT336 1 , CHR* ( 30 > ; s 

PRINT3425, CHR* (30) ; 

520 PRINT3233,"1 - 5 TO HOLD CARDS"; 

530 PRINT3297,"C TO CANCEL HELD CARDS"; 

540 PRINT5)361,"D TO DRAW"; 

550 PRINT3392,"l";:PRINT5>404,"2";:PRINT3416,"3";sPRINT3428,"4";: 

PRINT5>440,"5"; 

560 A*= " " s A*= I NKEY* : I F A*= " " G0T0560 

570 I F A*= " 1 " THENPR I NT3390 , " HELD " ; : V ( O ) = 1 

580 I F A*= " 2 " THENPR I NT3402 , " HELD " ; : V ( 1 ) = 1 

590 I F A*= " 3 " THENPR I NT34 15," HELD " ; : V ( 2 ) = 1 

600 I F A*= " 4 " THENPR I NT3427 , " HELD " ; : V ( 3 ) = 1 

610 IFA*="5"THENPRINT3439, "HELD" ; s V (4) =1 

620 IFA*="C"THENPRINT5)384 ? CHR*(30) ; s F0RQ=0T04s V (Q) =OsNEXTQs GOT05 

50 

630 IFA*="D"THEN660 

640 60T0560 

650 '* PREPRINTING THE NEW CARDS*** 

660 S=0sF0RQ=0T04 

670 I FV ( Q ) =OTHENC ( Q ) =B ( Q ) ; G0T0240 

680 IFV (Q) =0THENR=Q+1 : 0NRG0SUB450, 460, 470, 480, 490s F= 165: G0SUB162 



690 NEXTO 

700 F0RQ=0T04 

710 I F V ( Q ) =OTHENR=Q+ 1 ; 0NRG0SUB450 , 460 , 470 , 480 , 490 : F= 1 28 s GOSUB 1 62 

0sG0SUB1700 

720 NEXTQ 

730 '***PUTTING CARDS IN ORDER*** 

740 F0RI=1T04 

750 F0RJ=0T0I-1 

760 IFA(J)>A(I>THENK=A(I)sA(I)=A(J) :A(J)=K 

770 NEXTJ 

780 NEXT I 

790 '***CHECKING FOR WINS*** 

800 T=1:V=0 

810 0NTG0SUB850 , 890 , 940 , 1 1 , 1 050 

820 IFV=0THENT=T+1 : IFT< >6G0T0810 

830 F0RQ=lT01000:NEXTQs60T01090 

840 '***F0UR OF A KIND*** 

850 IFA (O) =A ( 1 ) ANDA ( 1 ) =A (2) ANDA (2) =A (3) THENV=1 

860 IFA ( 1 ) =A (2) ANDA (2) =A (3) ANDA (3) =A (4) THENV=1 

870 RETURN 

880 '***THREE OF A KIND AND FULL HOUSE*** 

890 IFA (0) =A ( 1 ) ANDA ( 1 ) =A (2) THENV=2s IFA (3) =A (4) THENV=V+1 

900 IFA ( 1 ) =A (2) ANDA (2) =A (3) THENV=2 

910 IFA (2) =A (3) ANDA (3) =A (4) THENV=2s IFA (O) =A ( 1 ) THENV=V+1 

920 RETURN 

930 '***TWO PAIR*** 

940 P=OsIFA(0)=A(l)P=P+l 

950 IFA(1)=A(2)P=P+1 

960 IFA(2)=A(3)P=P+1 

970 IFA(3)=A(4)P=P+1 

980 IFP=2THENV=4 

990 RETURN 

1 000 ' * * *FLUSH* * * 

1010 IFD (0) =D ( 1 ) ANDD ( 1 ) =D (2) ANDD (2) =D (3) ANDD (3) =D (4) THENV=5; GOSU 

B1050 

1020 IFV=6THENV=8 

1030 RETURN 

1040 '***STRAIGHT*** 

1050 IFA (O) +1=A ( 1 ) ANDA ( 1 ) + 1=A (2) ANDA (2) +1=A (3) ANDA <3) + 1 =A ( 4 ) V=V+ 

6 

1060 IFA (0) =1 ANDA ( 1 ) +A (2) +A (3) +A (4) =46THENV=6 

1070 RETURN 
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1080 '***PRINTIN6 UP WINNINGS*** 
1090 IFV=060T01520 
1100 CLS 

1110 IFV=1THENE=P(5)*M;PRINT3400, "FOUR OF A KIND. COLLErT" -E- 
1120 IFV=2THENE=P(1)*M;PRINT3400, "THREE OF A KIND. COLLECT":E" 
1 1 30 I FV=3THENE=P ( 4 ) *M : PR I NT9400 , " FULL HOUSE . COLLErT " - E ■ ' " 
1140 IFV=4THENE=P(0)*M;PRINT:i>400, "TWO PAIR. COLLECT"-E- 
1150 IFV=5THENE=P(3)*M;PRINT3400,"FLUSH. COLLECT";E»" * 
1 16U IFV=6THENE=P (2) *Ms PRINT3400, "STRAIGHT. COL LECT" ■ E- 
1170 IFV=STHENE=P(7)*M;PRINT3400,"R0YAL FLUSH- COLLECT "- E ■ 

!!o£ J^^fNW (6) *M:PRINT3400, "STRAIGHT FLUSH. COLLECT" 5 E S 

1190 ****COLLECT OR DOUBLE UP*** 

1200 F0RT=0T07: P (T) =P (T) *2*M: NEXTT 

1210 PRINT3464., "DOUBLE UP - PRESS D"; 

1220 PR I NT352B, "COLLECT WINNINGS - PRESS C"; 

1230 A*=INKEY*;IFA*=""G0T01230 

1 240 I FA*= " C " THENC=C+E : M=0 : GOTO 1 20 

1 250 I FA*< > " D " THEN A*= " " : GOTO 1 2HO 

1260 '***DOUBLE UP*** 

1270 Z= 1 : CLS : GOSUB 160s PR I NTS>7, " DOUBLE PAYOUTS"; 

1280 G0SUB470; GOSUB 1560 

1290 A(2)=RND(13) 

1300 D(2)=RND(4) 

1310 PR I NTS 169, "PRESS B FOR BIG "; 

1320 PRINT3233, " (LARGER THAN EIGHT)"? 

1330 PRINT3297, "PRESS S FOR SMALL"? 

1340 PR I NT336 1, " (SMALLER THAN EIGHT)"; 

1 350 A*= I NKE Y* : I F A*= " " GOTO 1 350 

1360 IFA$="B"PRINT3B09, "YOUR GUESS IS BIG" ; : GOTOl^O 

1370 IFA*="S"FRINTS>809, "YOUR GUESS IS SMALL" ;: GOTO 1 400 

1380 GOTO 1350 

1 390 I F A*= " B " ANDA ( 2 ) >8THEN 1 420 

1 400 I FA*= " S " ANDA ( 2 ) < 8THEN 1 42" 

1410 GOTO 1460 

1 420 R=3 : F= 1 28 : G0SUB470 : GOSUB 1 620 : GOSUB 1 700 

1430 F0RQ=1T01000;NEXTQ 

1440 CLS:E=E*2:PRINT3400,"CONgRATULATIONS - YOU GUESSED CORRECT! 

Y"; : PRINT3464, "COLLECT" ;E ; " DOUBLE UP AGAIN PRESS D"- "" "~ 

1450 F0RQ=0T07;P(Q)=P(Q)*2;NEXTQ; GOTO 122" ? 

1460 R=3: F= 1 28 s G0SUB470; GOSUB 162"; GOSUB 1700 

1470 F0RT=1 TO 1000; NEXTT 

1480 CLS;PRINT3400,"Y0U GUESSED INCORRECTLY" ;; FORT=1TO^OO- NEXT 

1490 IFC<=0THENCLS;PRINT5)390, "SORRY - YOU'VE GOT NOTHTNG~ELSE ^0 

PLAY WITH. ... "; : F0RQ=1 T03000; NEXT; CLS; END 
1 500 F0RQ= 1 T02000 s NE X T 
1510 M=0; GOTO 120 

1520 IFC<=0THEN1490ELSECLS:PRINT3338,"S0RRY, YOU WON NOTHING"- -P 

RINT3466, "PRESS ANY KEY TO CONTINUE"? ' " ' ' 

1 530 A*= I NKEY* : I FA*= " " GOTO 1 5^." 

1540 GOTO 1510 

1550 '***BRAWING UP CARDS*** 

1 560 PR I NT3A , STR I NG* ( 1 , 1 76 ) ; 

1570 PRINT3Y, STRING* (10,131)? 

1580 PRINT5>T, CHR* ( 170) ; s T=T+64; IFT>96OG0TQ1 6"" 

1590 GOTO 1580 

1600 PRINT9B 5 CHR*(149) s ;B=B+64; IFB>960 T HENF=165» 60TQ1 A^O 
1610 60T01600 ' " ------ 

1 620 PR I NT3 Z , STR I NG* ( 1 , F ) ; 

1630 Z=Z+64; IFZ>960RETLiRN 

1640 GOTO 1620 

1650 F0RR=1T05 

1 660 0NRGQSUB450 , 460 , 470 , 480 , 490 

1670 F= 128s GOSUB 1620; GOSUB 1700 

1680 NEXTR 

1690 S0T0510 

1 700 OND ( R- 1 ) GOSUB 1 720 , 1 760 , 1 790 , 1 84n - GOSUB 1 90" 

1710 RETURN 

1 720 H=H+6 1 : PR I IMT3H , CHR* ( 1 84 ) +CHR* (191) +CHR* i 1 8" ) +r H R* < 1 7 A ) +PH-* 

(190)+CHR*(189)+CHR*(144) ; : H=H+64 ' " 

1 730 PRINT3H, CHR* (130) +CHR* (175) +STRING* (3,191) +CHR* ( 135) ; : H=H+6 

6 

1 740 PR I NT3H , CHR* ( 1 39 ) +CHR* < 1 59 ) +CHR* C 1 29 ) - 

1750 RETURN ? 

1 760 PR I NT3H , CHR* ( 1 60 ) +CHR* ( 1 80 ) ; ; H=H+6* : PR T NT5>H r H R* MR4) -RTP T N 

G* ( 2 , 1 9 1 ) +CHR* ( 1 89 ) +CHR* ( 1 44 ) ; : H=H+63 ' ~ ~ " 

1770 PRINT3H, CHR* ( 174 ) +CHR* (191 ) +CHR* ( I4X) +C HR4 ( 1 5*) +CHR* < 1 7^-) -r 

HR* (191) +CHR* (132) ; ; H=H+67s PRINT3H, CHR* ( 1^.) '-" ' " 

1 730 RETURN * 

1 790 PR I NT3H , CHR* ( 1 84 ) +CHR* ( 1 88 ) +CHR* <1 *4 5 : ; H=H+6^ 
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1 800 PR I NT3H , CHR$ ( 1 62 ) +CHR$ 

1810 PRINT3H,CHR$<168)+CHR$ 

89) | :H=H+65 

1820 PRINT5>H,CHR*<139)+CHR$ 

1830 RETURN 

1 840 PR I NTS)H , CHR$ ( 1 84 ) +CHR* 

1850 PRINT3H:,CHR*(160)-!-CHR* 

3 

1860 PRINT3H, CHR$ (136) +STRING* (5, 191 ) +CHR* ( 157) ; : H=H+65 



143) +CHR$ ( 159) +CHR* ( 167) ; : H=H+63 
191 ) +STRING* <2 ? 189) +CHR$ ( 191 ) +CHR$ < 1 

129) +CHR* ( 149) -s-CHR$ < 139) +CHR* ( 129) : 

144) ?sH=H+62 

190)+STRING$<2, 191 ) +CHR* ( 180) ; : H=H+6 



175)-i-STRING$(2, 191 ) +CHR$ < 135) ; : H=H+6 
129) : 



1 870 PR I NT3H , CHR* (130) +CHR* 

6 

1880 PRINT3H ? CHR*(139)+CHR$ 

1890 RETURN 

1900 B*<R~1)=A$<A(R-1) ) 

1910 PRINT3Z-448 5 B$(R-1)5 

1 920 P=LEN < B* < R- 1 ) ) 

1930 J=Y-54-P 

1940 PRINT3J,B*(R-1) ; 

1950 RETURN 

1960 CLS:PRINT5)20,"M POKER it" 

1970 PRINTS PRINT 

THIS GAME IS VERY SIMPLE TO PLAY, YOU START OF WITH TEN 

CREDITS AND YOU BET AS MANY AS YOU LIKE ON EACH HAND. THEN YOU 
DRAW THE CARDS AND SELECT THE CARDS YOU WANT TO HOLD. YOU THEN 
RAW THE CARDS AGAIN AND YOU ARE TOLD IF YOU WON. " 
1980 PRINT: PRINT 

IF YOU WIN YOU HAVE THE CHOICE TO DOUBLE UP OR TO COLLECT 

YOUR MONEY. IF YOU DOUBLE UP, YOU WAGER YOUR WINNINGS ON 
WHETHER A CARD IS BIG ( GREATER THAN EIGHT ) OR WHETHER IT IS 
MALL ( LESS THAN EIGHT ).": 

1990 PRINT" IF YOU GUESS CORRECTLY, YOU WIN TWICE THE AMOUNT YOU 
ORIGINALLY WON. THE GAME CONTINUES UNTILL YOU RUNOUT OF CREDITS 
GOOD LUCK....." 

2000 PRINT: INPUT "PRESS <NEW LINE> TO START PLAYING. ":L 
2010 CLS: RETURN 



***** SHIFTL m/1 16K by F. El let t ***** 

Recently we wished to introduce a Quadriplegic friend of ours to computer programmi ng As she 
is able to use an electric typewriter with the aid of a wooden stick with a rounded knob on 
its end, we assumed the keyboard would present no extra difficulties for her. 

However, our friend quickly discovered that without being able to lock the shift key down, shifted 
key tokens, like quotation marks, were not available to her. 

And so the following program was developed. Firstly, as a simple scan reading for the shift 
key and then changing the next key to its shifted value. Then as it was apparent that we needed 
a fairly hefty key delay, we added your very useful Keytone delay and finally we added sinqle 
key words for the alphabet characters. 

As the program was written for a System 80 (to out sound to cassette port two) Tandy users should 
change byte 7FD7 from 05 to 01 and byte 7FDE from 06 to 02 to avoid toggling their cassette 
motor relay. 3 3 

System 80 owners should be aware that sound is disabled after doing a CLOAD or CSAVE and need 
to perform an OUT 254,255 to relatch cassette port 2. We have chosen to use the U key for this 
command. J 

Shifted numeral returns a null value and can be used to cancel a shifted key scan should shift 
be pressed in error. 

Two finger typists should be aware that holding shift down whilst pressing another key will 
Return its normal function. The program as presented resides at 7E50 to 7FEF, the entry point 
is 7E50. Memory should be protected at 32335. 

The program can be considered as 3 blocks and relies on the fact that each time BASIC scans 
the keyboard, it jumps to an address in reserved RAM (4016H) before the interpreter processes 
the pressed key. By placing a jump to block 1. at 4016H, it is possible to modify the value 
of the pressed key before it is passed to the interpreter for processing. 

BLOCK 1. Lines 500-650. 

Block 1 simply looks to see if the shift key has been pressed. This is done by calling the 
keyboard switch matrix at 3880H. (The A register will contain 01H if the SHIFT key has been 
pressed in that scan). 
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If the SHIFT key has been pressed the jump address at 401 6H is altered, forcing a jump to block 
2 in each subsequent scan. 

BLOCK 2. Lines 660-910 

Block 2 knows SHIFT has been pressed, so it waits to capture the next key pressed. This is 
done by calling 03E3H each scan. (The A register will return with the ASCII value of any key 
pressed during that scan). 

As a check against a two handed typist pressing both SHIFT and a letter together, the contents 
of the A register are masked so that values less than 2CH (comma) and greater than 5AH (capital 
Z) are returned unaltered. 

Once a key within the desired range has been detected, the address at 401 6H is altered yet again 
to point to Block 3. 

Before control is returned though, the ASCII value of the key just pressed is used to access 
an address table and point to the character, or group of characters, that is to replace the 
pressed key. This address is saved in a special address buffer. The contents of A are zeroed 
then control is returned to BASIC. 

BLOCK 3. Lines 920-1050 

Block 3 is the write block. It calls 03E3H and then loads the A register with the replacement 
character, pointed to by the address buffer. It then increments the address buffer to point 
to the next character and returns to BASIC. 

This routine is repeated over and over until a byte is discovered which has bit 7 set. Bit 
7 is not used for ASCII characters and so makes a convenient end of text marker. 

Once detected, the character is restored to its correct value by resetting bit 7, and the address 
at 4016H is changed for the last time to point again to the initial scan routine in Block 1. 

That completes the substitution phase and the computer will operate in a normal fashion until 
the next shift key is detected. Because using a stylus to press the keys tended to cause a 
lot of key repeats, we felt it necessary to slow the keyscan rate down and chose to use an adap- 
tation of the Keyboard Bleeper by C.E. Kendall (Micro-80 Nov. 80) as this had the added advantage 
of giving an audible indication of which key was pressed. 



***** SHIFT LOCK ***** 

A PROGRAM TO ENABLE A DISABLED PERSON TO ENTER SHIFTED LETTERS 
(C) F. ELLETT PALM BEACH, OLD, 1/8/1981 
TO USE; PRESS AND RELEASE THE SHIFT KEY 
THE NEXT KEY PRESSED WILL ASSUME ITS SHIFTED VALUE 
KEYBOARD THEN RETURNS TO ITS NORMAL MODE 
SHIFTED ALPHABET LETTERS WILL GIVE FULL KEY WORDS AS BELOW s- 



A= ASC 
E= ELSE 
1= INPUT 
L= LEN 
F- PEEK< 
T= THEN 
X= RIGHT* ( 
READY 



B= CLS 

F= FOR I=1T0 

3= " , " 

M= MID*( 

Q= CHR*< 

U= 0UT254,25? 

Y= RND< 



C= CSAVE"A" D= DATA 

6= GOTO H= GOSUB 

K= IK*= INKEY* IF IK*=""THEN 

N= NEXT 0= POKE 

R= RETURN S= STRING* < 

V= VAL< W= STR*( 

Z= LEFT*< 0= NULL 



A 



3C00 
3C00 
3C40 

3C40 41 



00100 
00 110 
00 1 20 
00130 



m 



TER SHIFTED LETTERS' 

3C80 

3C80 

3CC0 

3CC0 54 

3D00 

3B00 54 

D VALUE' 

3D40 

3D40 4B 

3DS0 

3D80 53 



00140 
00 1 50 
00 1 60 
00 1 70 
00180 
00190 

00200 

00210 

00220 

00230 

WORDS AS BELOW:-' 

3DC0 00240 

3DC0 41 00250 

D= DATA' 



ORG 
DEFM 
ORG 
DEFM 

ORG 

DEFM 

ORG 

DEFM 

ORG 

DEFM 

ORG 
DEFM 
ORG 
DEFM 

ORG 
DEFM 



3C00H 

****** SHIFT LOCK *****' 

3C40H 

'A PROGRAM TO ENABLE A DISABLED PERSON TO EN 

3C80H 

' <C> F= ELLETT PALM BEACH, OLD, 1/8/1981' 

3CC0H 

'TO USE; PRESS AND RELEASE THE SHIFT KEY' 

3D00H 

'THE NEXT KEY PRESSED WILL ASSUME ITS SHIFTE 

3D40H 

'KEYBOARD THEN RETURNS TO ITS NORMAL MODE' 

3D80H 

'SHIFTED ALPHABET LETTERS WILL GIVE FULL KEY 



3DC0H 
'A= ASC 



B= CLS 



CSAVE-A" 



3 (OCT 


OBER 1981) 






MICRO-80 


3E00 




00260 


ORB 


3E00H 


3E00 


45 


00270 


DEFM 


*E= ELSE 


H= 


GOSUB* 








3E40 




00280 


0R6 


3E40H 


3E40 


49 


00290 


DEFM 


* 1= INPUT 


$ IF 


IK$=""THEN' 






3E80 




00300 


0R6 


3E80H 


3E80 


4C 


00310 


DEFM 


'L= LEN 


0= 


POKE' 








3EC0 




00320 


0R6 


3EC0H 


3EC0 


50 


00330 


DEFM 


*P= PEEK( 


S= 


STRIN6*( 


* 






3F00 




00340 


ORG 


3F00H 


3F00 


54 


00350 


DEFM 


"T= THEN 


W= 


STRH ( ' 








3F40 




00360 


ORG 


3F40H 


3F40 


58 


00370 


DEFM 


*X= RIGHT* ( 


0= 


NULL 




" 




4020 




00380 


ORG 


4020H 


4020 


803F 


00390 


DEFW 


3F80H 


7E50 




00400 


ORG 


7E50H 


7E50 


E5 


00410 INIT 


PUSH 


HL 


7E51 


21657E 


00420 


LD 


HL, START 


7E54 


221640 


00430 


LD 


<4016H) ,HL 


7E57 


21077F 


00440 


LD 


HL,WORDT 


7E5A 


22057F 


00450 


LD 


(STORED ,HL 


7E5D 


3EFF 


00460 


LD 


A ? OFFH 


7E5F 


D3FE 


00470 


OUT 


(254), A 


7E61 


El 


00480 


POP 


HL 


7E62 


C3CC06 


00490 


JP 


06CCH 


7E65 


CDE303 


00500 START 


CALL 


03E3H 


7E68 


F5 


00510 


PUSH 


AF 


7E69 


3A8038 


00520 


LD 


A, (3880H) 


7E6C 


FEOO 


00530 


CP 


00 


7E6E 


2007 


00540 


JR 


NZ, NEXTKY 


7E70 


Fl 


00550 


POP 


AF 


7E71 


FEOO 


00560 


CP 


00 


7E73 


C4C27F 


00570 


CALL 


NZ, SOUND 1 


7E76 


C9 


00580 


RET 




7E77 


E5 


00590 NEXTKY 


PUSH 


HL 


7E78 


21847E 


00600 


LD 


HL,WAIT 


7E7B 


221640 


00610 


LD 


(4016H) ,HL 


7E7E 


El 


00620 


POP 


HL 


7E7F 


Fl 


00630 


POP 


AF 


7E80 


CDC87F 


00640 


CALL 


S0UND2 


7E83 


C9 


00650 


RET 




7E84 


CDE303 


00660 WAIT 


CALL 


03E3H 


7E87 


FEOO 


00670 


CP 


00 


7E89 


C8 


00680 


RET 


Z 


7E8A 


E5 


00690 


PUSH 


HL 


7E8B 


FE2C 


00700 


CP 


2CH 


7E8D 


3845 


00710 


JR 


CGOBACK 


7E8F 


FE5A 


00720 


CP 


5AH 


7E91 


3041 


00730 


JR 


NC,GOBACK 


7E93 


DDES 


00740 


PUSH 


IX 


7E95 


DD21AA7E 


00750 


LD 


IX,TABLE-2CH 


7E99 


329E7E 


00760 


LD 


(FINDAB+2) ,A 


7E9C 


DD7E00 


00770 FIND AD 


LD 


A, (IX+OO) 


7E9F 


2A057F 


00780 


LD 


HL, (STORED 


7EA2 


85 


00790 


ADD 


A,L 


7EA3 


6F 


00800 


LD 


L,A 


7EA4 


300 1 


008 1 


JR 


NC, NOCAR 


7EA6 


24 


00820 


INC 


H 


7EA7 


2B 


00830 NOCAR 


DEC 


HL 


7EA8 


22057F 


00840 


LD 


(STORED 5 HL 


7EAB 


21B97E 


00850 


LD 


HL, WRITE 


7EAE 


221640 


00860 


LD 


(4016H) ,HL 


7EB1 


AF 


00870 


XOR 


A 


7EB2 


DDE1 


00880 


POP 


IX 


7EB4 


El 


00890 


POP 


HL 


7EB5 


CDCE7F 


00900 


CALL 


S0UND3 


7EB8 


C9 


00910 


RET 




7EB9 


E5 


00920 WRITE 


PUSH 


HL 


7EBA 


2A057F 


00930 


LD 


HL, (STORED 


7EBD 


'py. 


00940 


INC 


HL 


7EBE 


22057F 


00950 


LD 


(STORED , HL 


7EC1 


7E 


00960 


LD 


A, (HL) 


7EC2 


CB7F 


00970 


BIT 


7, A 
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F = FOR I=1T0 G= GOTO 



J= " 



M= MID*( 



Q= CHR$( 



K= IK$= INKEY 



N= NEXT 



R= RETURN 



U= 0UT254,255 V= VAL ( 



Y= RND( 



Z= LEFT$( 



5 START WORD TABLE 

5 SAVE ADDRESS 

5 SET SYSTEM 80 

; SECOND CASSETTE / SOUND 



5 SAVE IT FOR A SEC 

; WHILE CHECK IF SHIFT 

; PRESSED 

5 JUMP TO IT IF IT IS 

5 NOT FOR US 

5 ORDINARY KEY PRESSED 
pSEND IT BACK 

;SET WAIT LOOP 



; SHIFT KEY PRESSED 
sLOOK FOR OUR KEY 



; IS IT LESS THAN , 

;G0 BACK IF LESS 
; IS IT GREATER THAN Z 
;THEN GO BACK 

; POINT IX TO TABLE 
;SET IX TO CORRECT BYTE 

; START OF WORD TABLE 
;ADD TABLE DISPLACEMENT 
;T0 WORD TABLE POINTER 

; BUMP IT IF CARRY 
; CORRECT POINTER 
;SAVE WORD ADDRESS 
;SET WRITE LOOP 

;NULL UNWANTED CHARACTER 



A SHIFTED KEY PRESSED 



I START WORD ADDRESS 

! POINT TO NEXT LETTER 

;SEND HER OFF 

;IS IT LAST CHARACTER? 
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7EC4 2S0E 
7EC6 CBBF 
"'ECS 2 1 077F 
7ECB 22057F 
7ECE 21657E 
7ED 1 221 640 
7ED4 EI 
7ED5 C9 



7ED6 


00 


7ED7 


01 


7EDS 


02 


7JTJJO 


03 


7EDA 


OF 


7EDB 


04 


7EDC 


05 


7EDD 


06 


7EDE 


07 


7EDF 


08 


7EE0 


09 


7EE1 


OA 


7EE2 


08 


7EE3 


OC 


7EE4 


OD 


yfrpp; 


OE 


7EE6 


00 


7EE7 


01 


7EE8 


02 


"7frpro 


03 


7EEA 


04 


7EEB 


1 r\ 

JL, \_* 


7EEC- 


14 


7EED 


1 ° 


7EEE 


20 


7EEF 


24 


7EF0 


29 


7EF1 


3*-. 


7FF? 


38 


7EF3 


41 


7EF4 


47 


7CCr 


4A 


7EF6 


65 


7FF7 


69 


7EF3 


6E 


-/crpo 


73 


7EFA 


78 


7EFB. 


7D 


"Tjrprp 


o rt 


7EFD 


89 


7EFE 


91 


ycpc 


qz. 


7F00 


Al 


7F01 


A5 


7F02 


AA 


7F03 


Bl 


7F04 


^Pi 


7F05 


0000 


TPfjy 


BC 


7 FOR 


BD 


7F09 


BE 


7F0A 


BF 


7F0B 


Al 


7F0C 


A2 


7F0D 


A3 


-Terrier 


A^ 


7F0F 


A5 


7FI0 


A6 


7Fi i 


/\-j 


7F12 


AS 


7FI3 


A9 


7F14 


AA 


7P i ;=j 


AB 


7P J a 


Or") 


7FI.7 


41 


7F1A 


fiP. 







MICRO-80 


00980 




JR 


Z ? GOBACK 


00990 




RES 


7, A 


01000 




LD 


HL, WORDT 


1 1 




LD 


(STORED 5 HL 


1 020 




LB 


HL P.TAPT 


01030 




LD 


(4016H) ,HL 


01040 


GOBACK 


POP 


HL 


01050 




RET 




1 060 


; TABLE 


STARTS 


HERE 


01070 


TABLE 


DEFB 


00 


1 080 




DEFB 


WTI-WORDT 


01090 




DEFB 


WT2-W0RDT 


1 1 00 




DEFB 


WT3-W0RDT 


OHIO 




DEFB 


WTO-WORDT 


1 1 20 




DEFB 


WT4-WGRDT 


01130 




DEFB 


WT5-W0RDT 


Oil 40 




DEFB 


WT6-W0RDT 


01150 




DEFB 


WT7-W0RDT 


01160 




DEFB 


WT8-W0RDT 


1 1 70 




DEFB 


WT9-W0RDT 


1 1 SO 




DEFB 


WT 1 0-WGRDT 


01190 




DEFB 


WT11-W0RDT 


01200 




DEFB 


WT12-W0RDT 


01210 




DEFB 


WT13-W0RDT 


1 220 




DEFB 


WTI4-WQRDT 


1 230 




DEFB 


00 


1 240 




DEFB 


WTI-WORDT 


1 250 




DEFB 


WT2-W0RDT 


01260 




DEFB 


WT3-W0RDT 


01270 




DEFB 


WT4-W0RDT 


01280 




nepp 


Al-WORDT 


01290 




DEFB 


B I -WORDT 


1 300 




DEFB 


Cl-WORDT 


01310 




DEFB 


D 1 -WORDT 


01320 




DEFB 


El-WORDT 


01330 




DEFB 


Fl -WORDT 


1 340 




DEFB 


Gl -WORDT 


1 350 




DEFB 


HI -WORDT 


1 360 




DFFR 


11 -WORDT 


1 370 




DEFB 


J 1 -WORDT 


1 380 




DEFB 


K 1 -WORDT 


01390 




DEFB 


LI -WORDT 


01400 




DEFB 


Ml -WORDT 


0141 




DEFB 


Nl -WORDT 


01420 




DEFB 


1 -wnRm 


01430 




DEFB 


PI -WORDT 


01440 




DEFB 


01 -WORDT 


01450 




DEFB 


Rl -WORDT 


1 460 




DEFB 


Si -WORDT 


1 470 




DEFB 


Tl -WORDT 


01480 




DEFB 


U 1 -WORDT 


01490 




DEFB 


V 1 -WORDT 


01500 




DEFB 


W 1 -WORDT 


01510 




DEFB 


XI -WORDT 


1 520 




DEFB 


VI -WORDT 


01530 




DEFB 


Zl -WORDT 


Ol ^4f; 


cjnee -j 


DEFW 


0000 


1 550 


; WORD 


-£ip! p cr 


"ARTR ucdc 


01560 


WORDT 


rjppp. 


3HH+ROM c ■-' 


01570 


WT 1 


DEFB 


3FlH+ c !uM ; = 


1 580 


!,I T7 


DEFB 


TCLjxQrjU * "- : . 


01590 


WT3 


nprp-p. 


7rpUa_p(-;LJ . O 


1 600 


I.ITrt 


DEFB 


r> -j Lj-i-pfii-j = 1 


1 6 1 


WT5 


r\trpp 


22H+S0H = " 


1 620 


WT6 


rjeco 


'73H + ROJ-4 ; it 


1 630 


WT7 


DEFB 


24H+80H ; 4 


01640 


y-j- o 


DEFB 


25H+ROH " V 


1 650 


WT9 


npco 


26H+80H = 3< 


1 660 


NT 10 


nccp 


27H+80H i * 


1 670 


!a!T i 1 


nepp 


2SH+80H i < 


1 680 


WT 1 2 


rsppp 


oduj-oau . \ 


01690 


WT13 


DEFB 


2AH+80H ; t 


r» ^ TAA 


NT 14 


nppp 


2BH+80H ; + 


0171 


WTO 


DEFB 


30H : NUL 


1 720 


/\ i 


rscrpjvt 


=■ /\p,p * 


1 730 




DEFB 


AApU 
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; CARRY ON IF NOT 

; TOGGLE BYTE IF LAST ONE 

; RESTORE ADDRESS 

; RESET KEYBOARD JUMP 



NULL CHARACTER 



3 (OCTOBER 198 


1) 


M 


[CRO-80 




7F1B 43 


1 740 B 1 


rjfrtrjvi 


» f^l^C => 




7F1E AO 


1 750 


DEFB 


OAOH 




yp i p 4^r 


01760 CI 


DEFM 


'CSAVE"A' 




7F26 A2 


1 770 


rscrpp. 


0A2H 




7P27 4.4 


01780 Dl 


DEFM 


'DAT' 




7F2A CI 


1790 


DEFB 


0C1H 




7F2B 45 


1 300 E 1 


f\crirM 


* fr^crr* 




7F2F AO 


01810 


DEFB 


OAOH 




7F30 46 


01820 Fl 


Qpprivi 


' FOR 1=1 TO ' 




7F3C AO 


1 830 


DEFB 


OAOH 




TFy.jy 47 


01840 81 


DEFM 


'GOTO' 




7F41 AO 


1 S50 


DEFB 


OAOH 




7F42 47 


01860 HI 


DEFM 


'GOSUB' 




7F47 fto 


1870 


DEFB 


OAOH 




7F48 49 


01880 11 


DEFM 


* INPUT' 




7F4D AO 


1 S90 


DEFB 


OAOH 




7F4E 22 


01900 Jl 


DEFM 


? " a ^ 




7F50 A2 


01910 


DEFB 


0A2H 




7F51 49 


01920 Kl 


DEFM 


'IK*=INKEY*: IF 


IK* 


7F6B AO 


01930 


BEFB 


OAOH 




7F6C 4C 


01940 LI 


DEFM 


'LEN' 




7F6F A8 


01950 


DEFB 


OASH 




7F70 4D 


01960 HI 


DEFM 


'MID*' 




7F74 AS 


01970 


DEFB 


OASH 




7F75 4E 


01930 Nl 


DEFM 


'NEXT' 




7F79 AO 


1 990 


DEFB 


OAOH 




7F7A 50 


02000 1 


DEFM 


'POKE' 




7F7E AO 


02010 


DEFB 


OAOH 




7F7F 50 


02020 PI 


DEFM 


'PEEK' 




7F83 A8 


02030 


DEFB 


OASH 




7F84 43 


02040 Ql 


DEFM 


'CHR*' 




7F88 A8 


02050 


DEFB 


OASH 




7F89 52 


02060 Rl 


DEFM 


'RETURN' 




7F8F AO 


02070 


DEFB 


OAOH 




7F90 53 


02080 SI 


DEFM 


'STRING*' 




7F97 AS 


02090 


DEFB 


OASH 




7F98 54 


02100 Tl 


DEFM 


'THEN' 




7F9C AO 


02110 


BEFB 


OAOH 




7F9D 4F 


02120 Ul 


DEFM 


'0UT254„255* 




7FA7 AO 


02130 


DEFB 


OAOH 




7FA8 56 


02140 VI 


DEFM 


'VAL' 




7FAB AS 


02150 


DEFB 


OASH 




7FAC 53 


02160 Wl 


DEFM 


'STR*' 




7FB0 AS 


02170 


DEFB 


OASH 




7FBI 52 


02180 XI 


DEFM 


'RIGHT*' 




7FB7 AS 


02190 


DEFB 


OASH 




7FB8 52 


02200 Yl 


DEFM 


'RND' 




7FBB AS 


02210 


DEFB 


OASH 




7FBC 4C 


02220 Zl 


DEFM 


'LEFT*' 




7FC1 AS 


02230 


DEFB 


OASH 




7FC2 E5 


02240 S0UNB1 


PUSH 


HL 




7FC3 216030 


02250 


LD 


HL,3060H 




7FC6 180A 


02260 


JR 


S0UND4 




7FC8 E5 


02270 S0UNB2 


PUSH 


HL 




7FC9 218030 


02280 


LD 


HL,3080H 




7FCC 1804 


02290 


JR 


S0UND4 




7FCE E5 


02300 S0UNB3 


PUSH 


HL 




7FCF 219030 


02310 


LD 


HL , 3090H 




7FD2 F5 


02320 S0UND4 


PUSH 


AF 




7FD3 C5 


02330 


PUSH 


BC 




7FD4 4C 


02340 


LD 


C,H 




7FD5 45 


02350 SOUNDS 


LD 


B,L 




7FD6 3E05 


02360 


LD 


A, 05 




7FD8 D3FF 


02370 


OUT 


(OFFH) ,A 




7FDA 10FE 


02380 L00P1 


D-JNZ 


L00P1 




7FDC 45 


02390 


LD 


B,L 




7FDB 3E06 


02400 


LD 


A, 06 




7FDF D3FF 


02410 


OUT 


(OFFH) ,A 




7FE1 10FE 


02420 L00P2 


DJNZ 


L0OP2 




7FE3 OB 


02430 


DEC 


C 




7FE4 20EF 


02440 


JR 


NZ , SOUNDS 




7FE6 CI 


02450 


POP 


BC 




7FE7 Fl 


02460 


POP 


AF 




7FE8 El 


02470 


Of"]r> 


HL 




7FE9 C9 


024S0 


RET 






7E50 


02490 


END 


INIT 




00000 TOTAL 


ERRORS 
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***** MORSE CODE DECODER L2/4K by R. Edwards ***** 

This program allows you to enter a series of dots and dashes representing morse code characters. 
It then translates those characters into the letters of the alphabet they represent. 

The program works by converting an inputted string of dots, dashes and spaces into a decimal 
number by segments (each morse code letter) through a type of "binary" system. 

Firstly a substring is taken between spaces, which is a morse code letter, the dots are equivalent 
to a and dashes to a 1 . Then this number is equated by raising 2 to this number plus its 
position from the right so that "." = 1, "-" = 2, ".." = 3 (left dot = 2, right dot = 1), 
"--" = 6, (left dash = 4, right dash = 2). This is more complicated than a simple binary conversion 
but was necessary to avoid disimilar letter being confused. 

Line 170 finds each space. 

Line 180 keeps track of the first and second space and if one follows another a space is left 

on the screen (new word). 
Line 190 defines some variables and the substring C$ (the letter) and with line 200 steps through 

the string and does the abovementioned conversion. 
Line 200 as above, then does a first check for the validity of input. 
Line 210 is the second validity check if input is involved a branch to line 240 is made. 
Line 220 prints the calculated character. 

Line 230 checks for end of string, if so, awaits for a restart. 

Line 240 is the branch when an error has been made, which requests a correction to be made. 
Lines 250-320 is the input/correcting subroutine. If requested to correct input it will not 

allow you to alter any part of the string that has already been calculated. This 

subroutine may be used (with minor alterations) in other programs. 



20 CLSs CLEAR 1 000 s DIMA* ( 120) s F0RI = lT028s READA* ( I ) : NEXT: F0RI = 1T018 

sREADX,A$(X) sNEXT 

30 DATAE,T,I,A,N,M,S,U,R,W,D,K,G,0,H,V,F,,L,,P,J,B,X,C,Y,Z,Q 

40 DATAI20,, 31, 5, 32, 4, 34, 3, 38, 2, 46, 1,47, 6,48, =,49,/, 55, 7, 59, 8, 61 

,9,62,0,75,7,84, . , 105, ; , 1 14, " , " , 1 19, " : " 

50 PRINTTAB< 15) "MORSE CODE DECODER - INSTRUCTIONS 

"TAB (15) " 

THIS PROGRAM USES A SIMPLE LINE EDITOR FOR THE INPUT AND 

CORRECTION OF THE CODED MESSAGE. A GRAPHIC BLOCK WILL FLASH" 

60 PR I NT "OVER THE SPACE OR CHARACTER, WHICH CAN BE CHANGED BY TY 

PING 

OVER IT. THE < AND > KEYS (,&„) CAN BE USED TO MOVE THE CURSOR, 

SHIFT < WILL DELETE THE CURRENT CHARACTER, AND SHIFT > WILL 

INSERT A SPACE. HIT ENTER TO RUN." 

70 PRINT" 

FOR THE INPUT OF MORSE CODE, TYPE THE K CHARACTER FOR DOTS AND 

THE L CHARACTER FOR DASHES. INSERT A SPACE BETWEEN EACH LETTER, 

AND TWO SPACES BETWEEN EACH WORD. " s GOTO 150 

80 CLSsPS=-lsP2=lsPl=lsP=l:A®=" "s J=0; L=l s G0SUB170 

90 J=J+ls IFMID$(A$,J,1)<>" "THEN90 

100 Pl=P2sP2=J+ls IFPH-1=P2THENC=120;G0T0140 

1 10 C=Os L=P2-P1-1 : C$=MID$ ( A$, PI , L) s FORI = lTOLs X=l : IFMID$ (C*, 1 , 1 ) = 

". "THENX=0 

120 C=C+2C (X-8-L-I) sNEXTs IFC<00RO119G0T0160 

130 IFA*(C)=""G0T0160 

140 PS=PS+ls PRINTERS, A$(C) ; s X=PS-INT (PS/64) ^64s IFX>58PRINTsPS=PS 

+64- X 

150 IFJ<LEN(A*)THEN90ELSEPRINT3960,"PRESS ENTER TO CONTINUE" ; s IN 

PUTQ$:G0T080 

160 PRINT3960,"ERRQR - PLEASE CORRECT OR DELETE" 5 : P=P1 : L=LEN (A$) 

s G0SUB170: PRINT3960, CHR$ (31 ) ; s P2=P1 s J=P1-1 : G0T090 

170 C=255+PsPRINTSC,CHR$(143> ? sF0RI = lT025: S$=INKEY*s IFS$=""NEXTs 

PRINT3C,MID*(A$,P,l) 5 sF0RI=lT025:S*=INKEY$sIFS$=""NEXT:60T0170 

1 80 PR I NT5)C , M I D* ( A$ , P , 1 ) ; s Q=ASC ( S$ ) s I FQ=320RQ=750RQ=76THENQ=- 1 s G 

0T0200ELSE I FQ= 1 3RETURNELSE I FQ=44ANDP >P 1 THENP=P- 1 ELSE I FQ=46ANDP< LT 

HENP=P+ 1 ELSE I FQ=60ANDP< LTHENS$= " " s G0T02 1 OELSE I FQ=62THENS$= " " +M I D 

$(A$,P, 1) SG0T0210 

190 GOTO 170 

200 I FS*= " K " THENS*= " . " ELSE I FS$= " L " THENS$=CHR$ ( 95 ) 

210 A*=LEFT* (A$, P-l ) +S*+MID* (A$, P+l , L-P+l ) 

220 L=LEN ( A$ ) : PR I NT3255+P , R 1 6HT$ ( A* , L-P+ 1 ) " " s I FL >250THEN A$=LEFT 

* ( A$ , 249 ) + " " s P=P- i - G0T0220 

230 I FQ=- 1 THENP=P+ 1 s I FP >LEN ( A* ) THENA*=A*+ " " 

240 GOTO 170 
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***** NEXT MONTH'S ISSUE ***** 

Next month's issue will contain at least the following programs plus the usual features and 
articles. 



** TIC TAC TOE LI/4K ** 



** TEXT TYPER LII/16K ** 



Now this old family favourite has been 
written to run in a Level 1 4K machine. 
Play against your level 1 machine, complete 
with a graphic playing board. 



A simple word processor program written 
in BASIC that lets you type in text with 
or without justification, save your text 
to tape and load it back, edit your text 
and lots more. 



** ATTACK LII/16K ** 



BASIC LINE VALIDATOR m/1 



Shoot down the invaders before they bomb 
you. A two player space game, complete 
with sound effects and real time action 
as you try to beat the invader and your 
opponent. 



This machine language program resides in 

an unused RAM area and when called it checks 

through your program for any unreferenced 

line numbers, reporting any errors that 
are found. 



** MULTIPLE REGRESSION LII/4K ** 



** ATOMIC TABLES LII/16K ** 



This is the third program in the series 
of scientific programs. This one relates 
a dependant variable with two other independent 
variables in respect to a surface and if 
any of that means anything to you, then 
this program is just for you. 



Students studying the subject of Atomic 
tables and Atomic numbers or anybody that 
is just interested, will find this program 
yery useful. Did you know that there was 
an element called TECHNETIUM? We didn't 
until we ran this program! 
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The cassette edition of MICRO-80 contains all the software listed each month, on cassette. 
All cassette subscribers need do is CLOAD and RUN the programs. Level II programs are recorded 
on side 1 of the cassette. Level I programs are recorded on side 2. Level I programs are not 
compatible with the System 80. All programs are recorded twice in succession. Note, System 
80 computers have had different tape-counters fitted at different times. The approximate start 
positions shown are correct for the \/ery early System 80 without the volume control or level 
meter. They are probably incorrect for later machines. The rates for a cassette subscription 
are printed on the inside front cover of each issue of the magazine. 

The disk edition contains all those programs which can be executed from disk, including Level 
I programs. Level I disk programs are saved in the NEWDOS format. Users require the Level 
I/CMD utility supplied with NEWDOS + or NEWDOS 80 version 1.0 to run them. 



SIDE ONE 
MORSE DECODER 



POKER 



PUT COMMAND 



SHIFT LOCK 



TYPE 
LII/4K 



LII/16K 



SYSTEM 



SYSTEM 



I.D. 



DISK FILESPEC 


APPROX 
CTR-41 


. START POSITION 

CTR-80 SYSTEM-80 


MORSE/BAS 
ii 


15 
37 


10 
25 


10 
26 


POKER/BAS 
ii 


60 
118 


40 
80 


42 
84 


PUT/EDT 
ii 

PUT/CMD 
ii 


173 
188 
200 
205 


117 
127 
136 
139 


123 
134 
143 
146 


SHIFTL/EDT 

SHIFTL/CMD 
ii 


210 
255 
296 
310 


142 
172 
200 
209 


150 
180 
210 
220 



SIDE TWO 



SHORTEN 



EDTASM SHORTN SHORTEN/EDT 
it ii ii 

SYSTEM " SHORTEN/CMD 



15 
38 
62 
70 



10 
26 
42 
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A SPECIAL OFFER! 



TO 
SUBSCRIBERS OF 





FOR THE FIRST TIME IN AUSTRALIA! 
GENUINE TANDY TRS-80 MICRO-COMPUTERS, 
HARDWARE AND SOFTWARE AT 



GREAT DISCOUNT PR 



HOW TO ORDER - 

1. SELECT ITEMS FROM 1980 TANDY CATALOGUE 

2. DEDUCT 10% FROM ADVERTISED PRICES 

3. POST US YOUR ORDER STATING DESCRIPTION 
CAT. No AND A CHEQUE OR MONEY ORDER. 



Ml 

BBS 






to CONQUEST ELECTRONICS Pty. Ltd. 
212 Katoomba St. KATOOMBA 2780 



Please supply - 

QTY. CAT NO DESC. 



WE WILL - 

1. ATTEND TO YOUR ORDER WITHIN 7 DAYS * 

2. SUPPLY GOODS SELECTED FREIGHT FREE ! 

3. SEND ADVERTISING REGULARLY TO KEEP 
YOU INFORMED OF CURRENT SPECIALS ! 

* subject to availability 




ADV. PRICE 



SUB TOTAL 
LESS 10% 
FIND CHEQUE FOR TOTAL 



SEND FREIGHT FREE TO 

NAME 

ADDRESS 



...P/Code 



CONQUEST EUCmONKX 



PTY. LTD. 



212 KATOOMBA ST KATOOMBA N.S.W. 2780 PHONE (047) 82 2491 



MANUAL 



by Edwin Paay 

Published by MICRO-80 PRODUCTS 



Written by E 
complete ex 



ddy Paay, the LEVEL II ROM REFERENCE MANUAL is the most 
anation of the Level II BASIC interpreter ever published. 



Part 1 lists all the useful and usable ROM routines, describes their functions 
explains how to use them in your own machine language programs and notes the 
effect of each on the various Z 80 registers. 

Part 1 also details the contents of system RAM and shows you how to intercept 
BASIC routines as they pass through system RAM. With this knowledge, you can 
add your own commands to BASIC, for instance, or position BASIC programs in 
high memory— the only restriction is your own imagination! 

Part 2 gives detailed explanations of the processes used for arithmetical 
calculations, logical operations, data movements, etc. It also describes the various 
formats used for BASIC, SYSTEM and EDITOR/ASSEMBLER tapes. Each section 
is illustrated by sample programs which show you how you can use the ROM 
routines to speed up your machine language programs and reduce the amount of 
code you need to write. 

The LEVEL II ROM REFERENCE MANUAL is intended to be used by machine 
language programmers. It assumes a basic understanding of the Z 80 instruction 
set and some experience of . Assembly Language programming. But BASIC 
programmers too will benefit from reading it. They will gain a much better insight 
into the functioning of the interpreter which should help them to write faster, more 
concise BASIC programs. 



